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This  report  was  prepared  to  fulfill  the  requirements  under  con- 
tract N00014-76-C-0261,  supported  by  the  Office  of  Naval  Research, 

U.  S.  Navy.  The  objectives  of  the  study  were  to  develop  a math- 
ematical model  appropriate  for  analysis  of  the  behavior  of  sur- 
face effect  vehicles  (SEV)  in  unusually  large  waves  and  to  sub- 
sequently apply  this  model  to  investigate  the  vulnerability  of 
these  vehicles  to  explosion  generated  wave  environments. 

The  model  was  formulated  in  a very  general  structure  applicable 
both  to  surface  effect  ships  (SES)  and  to  air  cushion  vehicles 
(ACV) . Specific  features  of  this  model  include  heave  alleviation 
ride  control,  thrust  control,  and  various  schemes  for  turning  and 
maneuvering.  The  model  provides  time  domain  solutions  of  SEV  in 
six  degrees  of  freedom  over  any  prescribed  sea  state,  appropriate 
for  both  seakeeping  and  maneuvering  analyses.  Specifically  worth 
mentioning  is  the  fact  that  the  model  is  efficient  and  can  be 
quickly  executed  on  high  speed  digital  computers.  Typically,  a 
100-second  real-time  simulation  can  be  accomplished  in  19  seconds 
of  computer  time  on  a CDC  7600  computer. 

Another  specific  feature  of  the  present  model  is  its  ability  to 
simulate  vehicle  response  to  large  excitations.  This  feature  was 
specially  incorporated  for  the  purpose  of  analyzing  vehicle  be- 
haviors in  an  explosion  generated  wave  environment.  Analyses  of 
vessel  response  of  a typical  2000-ton  class  SES  to  various  initial 
conditions  of  explosion  were  conducted.  Operational  envelopes  de- 
fining the  required  stand-off  distance  and  vessel  heading  for  safe 
maneuvers  of  this  vehicle  are  also  presented  in  this  report.  It 
must  be  noted  that,  in  this  study,  the  vehicle  dimensions  and  char- 
acteristics were  treated  only  in  general  terms  in  order  to  represent 
a typical  SES.  It  should  also  be  emphasized  that  only  a number  of 
vehicle  speeds,  control  parameters,  and  weapon  sizes  have  been 
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considered  in  this  study.  Therefore,  further  studies  are  warrant- 
ed for  more  comprehensive  parametric  excuninations  as  well  as  for 
investigations  of  a specific  vehicle  of  interest.  Nevertheless, 
the  present  mathematical  model  provides  a valuable  foundation  for 
analyzing  these  problems. 

In  the  following,  several  major  findings  from  the  present  study  are 
summarized: 

o Depending  on  yield  and  craft  heading,  a critical  standoff 
distance  can  be  defined  for  a typical  SES  within  which 
craft  survival  is  questionable. 

o Reaction  time  to  a blast  is  critical.  If  sufficient  time 
is  available,  outrunning  the  waves  is  possible.  If  suf- 
ficient reaction  time  does  not  exist,  best  option  is  to 
head  into  the  waves  and  maintain  a hovering  mode. 

o In  relatively  shallow  water  the  critical  parameter  affect 
craft  survival  is  wave  height  to  water  depth  ratio  rather 
than  standoff  distance  as  in  the  case  of  deep  water. 

o Heave  compensation  devices  help  provide  substantial 

improvement  to  craft  survival  as  evidenced  by  a limited 
number  of  cases  investigated. 
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1 . 0 INTRODUCTION 


Currently,  there  is  a concerted  effort  being  made  by  the  Navy  and 
other  Governmental  agencies  in  exploring  the  feasibility  of  using 
alternate  concepts  to  present  day  naval  ship  design  for  the  Navy 
of  the  future.  These  investigations  have  led  to  the  considera- 
tion of  Air  Cushion  Vehicles  (ACV)  and  Surface  Effects  Ships  (SES) 
as  viable  candidates.  These  vehicles  offer  the  potential  for  much 
greater  versatility  and  higher  operational  speeds  than  hithertofore 
possible  with  conventional  ship  design.  The  ACV  with  its  totally 
flexible  skirt  system  presents  an  amphibious  capability  most  at- 
tractive for  coastal  and  nearshore  operations,  assault  landing 
operations,  and  for  arctic  environmental  use.  The  SES,  on  the 
otherhand,  while  not  of  an  amphibious  nature,  provides  an  ocean 
going  vehicle  capable  of  very  high  speed  performance  in  reasonable 
sea  states  and  weather  conditions. 

Interest  in  these  concepts  has  led  the  Navy  into  a development  pro- 
gram in  which  two  air  cushion  assault  vehicles  are  presently  being 
evaluated.  Additionally,  two  100-ton  surface  effect  ships  have 
been  built  and  tested,  i-nder  Navy  contract,  with  sufficiently  en- 
couraging results  that  the  Navy  is  currently  conducting  a detail 
design  of  a 3000-ton  class  SES.  It  is  apparent  from  this  activity 
that  more  than  just  casual  interest  is  being  given  to  these  vehicles 
and  indeed,  dependent  on  the  results  of  the  above  programs,  they 
may  prove  to  be  the  forerunners  of  a completely  new  class  of  fight- 
ing ship  for  the  Navy  of  tomorrow. 

The  advent  of  the  Surface  Effect  Vehicle  as  a serious  contender 
for  Naval  applications  has  led  to  the  need  for  an  evaluation  of 
the  vulnerability  of  this  type  of  craft  under  typical  tactical 
situations.  As  presently  envisaged  the  role  these  vehicles  are 
to  play  in  naval  operations  is  one  of  antisubmarine  warfare  (ASW) , 
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escort  duties  and  near  or  offshore  patrol  and  rescue,  which 
operations  require  a dash  or  high  speed  capability  coupled  with 
maneuverability,  a feature  characteristic  of  air  cushion  vehicles 
(ACV)  and  surface  effect  ships  (SES)  alike. 

Due  to  this  mounting  interest  it  is  appropriate,  at  this  time, 
to  obtain  an  assessment  of  the  vulnerability  of  such  craft  to 
possible  threats.  In  identifying  possible  threat  areas  one 
outstanding  possibility  is  that  due  to  explosion  generated  waves. 

Past  experience  in  this  field,  [1]  and  [2], has  shown  the  great 
damage  potential  such  a phenomenon  can  have  on  submarines  and 
conventional  ships.  The  effects  on  ACV s and  SES  are  expected 
to  be  of  greater  significance  since  the  unique  features  of  these 
vehicles  make  them  particularly  susceptible  to  sudden  and  anomalous 
changes  in  sea  surface  topography,  such  as  are  known  to  be  produced 
by  nuclear  detonations. 

Past  studies  have  been  primarily  concerned  with  the  behavior 
of  ships  and  submarines  within  the  transient  surf  zone  produced 
by  high  yield  explosions  at  the  continental  margins  (Van  Dorn 
Effect) . However,  because  of  their  dynamic  response  we  expect 
that  the  damage  potential  on  SES  and  ACV' s cannot  only  be 
restricted  to  these  conditions  but  must  be  extended  to  include 
the  effects  of  small  and  moderate  yield  devices  and  operations 
in  deep  water.  It  is  evident  that  even  under  these  latter 
conditions  waves  can  be  produced  that  are  capable  of  limiting 
the  performance  of  these  craft. 

The  radical  differences  between  the  design  of  these  craft  and 
those  of  present  naval  ships  makes  it  impossible  to  extrapolate 
the  results  obtained  in  past  studies  to  the  present  case.  It 
is  only  by  conducting  an  investigation,  wherein  the  features 
of  these  vehicles  are  faithfully  modeled,  that  the  vulnerability 
of  these  craft  can  be  determined. 
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In  light  of  the  above  discussion,  it  is  deemed  imperative  that 
such  a study  be  conducted  with  the  objective  of  defining  the 
operational  limits  of  ACV's  and  SES  under  explosion  generated 
waves,  and  to  ascertain,  where  possible,  the  survival  potential 
of  these  vehicles  when  subjected  to  tactical  situations  of  this 
nature . 

The  criteria  used  in  defining  the  structural  design  and  stability 
characteristics  of  SES  are  derived  principally  from  the  desired 
operational  envelopes.  The  envelope  defines  the  speed-wave 
height  domain  over  which  the  craft  will  operate.  Typically, 
such  an  envelope  is  shown  in  Figure  1. 

Two  factors  which  greatly  affect  the  basic  structural  design 
of  the  SES  are  the  highest  wave  environment  to  be  encountered 
when  operating  on-cushion  and  the  maximum  impact  loading  to  be 
seen  by  the  hull  during  operation.  The  former  factor  is  of 
prime  importance  in  selecting  the  height  of  the  flexible  skirt 
system  and  thus  impacts  hull  design.  The  latter  determines  plating 
thickness  and  consequently  weight.  From  Figure  1 it  will  be  seen 
that  point  A on  the  chart  determines  maximum  wave  height  on 
cushion.  The  worst  combination  of  sea  state  and  speed  will  be 
determined  by  line  AB  along  which  maximum  impact  loads  are  likely 
to  occur.  If  such  an  operating  envelope  is  determined  without 
due  consideration  for  potential  threats  as  outlined  above  grave 
consequences  can  arise.  It  is  easily  conceivable  that  a wave 
environment  outside  the  typical  boundaries  now  being  considered 
in  the  SES  field  can  be  generated  by  low  to  moderate  yield 
devices.  Such  circumstances  could  cause  structural  and  operational 
failures . 

In  addition  to  the  above  impacts  the  question  of  craft  stability 
and  survival  are  of  equal  importance.  The  response  of  an  SES  to 
a typical  explosion  generated  wave  profile  could  lead  to  con- 
ditions of  craft  plow-in,  pitch  poling  and  capsizing.  Such 
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extreme  motions  are  indeed  possible  under  ■:ertain  conditions  of 
speed,  water  depth  and  yield.  This  aspect  of  vulnerability  is 
therefore  of  equal  importance  in  analyzing  SES  operational 
characteristics . 

The  problem  at  hand  can  be  divided  into  two  basic  sub  tasks: 

(a)  The  analytical  description  and  modeling  of  explosion 
generated  water  waves,  and 

(b)  The  analytical  treatment  of  the  craft  dynamics  and 
motions  when  subjected  to  a disturbing  functions  as 
defined  in  (a)  above. 

Whereas  previously  conducted  work  by  Tetra  Tech,  References  1 
and  2,  is  directly  applicable  to  the  first  of  these  areas,  the 
second  provides  a new  and  added  dimension  due  to  the  radical 
difference  between  ACV  and  SES  and  conventional  ships.  Analytical 
modeling  of  SES  motions  and  maneuvering  however,  have  also  been 
conducted  by  Tetra  Tech  [3]  and  has  been  used  as  a basis  of  de- 
parture for  the  present  program. 

The  present  report  deals  with  the  investigation  of  the  response  of 
a typical  SES  to  an  explosion  wave  environment.  This  study  has 
been  directed  to  the  formulation  and  development  of  the  analytical 
model  describing  the  dynamics  of  a surface  effect  vehicle,  the 
description  of  the  explosion  generated  wave  environment  and  the 
investigation  of  such  a craft  under  various  scenarios.  Exercise 
of  the  program  in  this  area  has  been  concentrated  on  various  para- 
meters of  the  problem  such  as  the  effects  of  yield,  standoff  dis- 
tance, water  depth  and  tactical  maneuvers  to  enhance  survival. 
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In  order  to  fully  exercise  the  analytic  program  and  ensure  its 
validity  several  cases  of  sinusoidal  waves  and  solitary  waves 
were  also  run.  These  latter  waves  are  representative  of  waves 
in  the  shallow  water  environment  and  consequently  are  worthy 
of  investigation  in  their  own  right. 

The  work  described  in  this  report  was  conducted  for  the  Office 
of  Naval  Research  under  contract  N00014-76-C-0261 . This  report, 
covers  all  work  performed  under  this  contract  and  is  submitted  in 
fulfillment  of  the  requirements  of  the  contract. 


6 


2.0 


FORMULATION  OF  PROBLEM 


2 . 1 Coordinate  System 


The  motion  of  the  craft  is  described  in  terms  of  the  relationship 
between  a body  fixed  reference  frame  and  a coordinate  system  fixed 
in  space.  The  initial  coordinates  (x^,y^,z^)  and  the  body  co- 
ordinates {x,y,z)  are  both  designated  according  to  a right  hand 
convention  with  z and  z positive  downward.  The  origin  of 
the  body  frame  is  kept  fixed  at  the  center  of  gravity  of  the 
craft  with  the  x-axis  parallel  to  the  baseline  of  the  craft, 
positive  forward,  and  y positive  starboard.  The  two  coordinate 
systems  coincide  initially  at  time  zero.  At  time  t,  there  are 
three  linear  displacements  and  three  angular  displacements  to 
describe  the  six  degrees  of  freedom  craft  motions. 

As  a body  moves  in  a fluid  domain,  various  forces  and  moments 
act  on  the  body.  For  the  convenience  of  analysis,  the  total 
force  is  resolved  into  three  components  along  the  body  axes. 
Definitions  and  symbols  of  the  six  components  of  force/moment, 
displacement  and  velocity  are  given  by  Table  1 and  illustrated 
in  Figure  2. 

Table  1 Definition  of  Force/Motion  Variables 


Motion 


Force  or  Moment 


Displacement 


Velocity 


Longitudinal 

Lateral 

Vertical 

Roll 

Pitch 

Yaw 


X 

Y 

Z 

K 

M 

N 


n 

* 

e 


u 

V 

w 

p 

q 
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2.2  Equations  of  Motion 


The  equations  of  motion  for  a craft  in  six  degrees  of  freedom 
can  be  written  as: 

nT  (u  + qw  - rv)  = X 
Tn  (v  + ru  - pw)  = Y 
rn  (w  + pv  - qu)  = Z 

P <'z  - 'y>  'JP- 

ly  i * <'x  - PP-  « 

^ P * <'y  - V P^-  " 

Inhere  nT  is  the  mass  and  and  are  the  moments  of  inertia 

of  the  craft  about  the  respective  axes.  Terms  on  the  lefthand 
side  represent  the  rigid  body  inertial  reactions  and  the  cen- 
trifugal effects  acting  at  the  origin  with  respect  to  the  moving 
coordinate  system.  The  terms  on  the  righthand  side  refer  to 
the  total  forces  and  moments  applied  to  the  craft,  including 
the  hydrodynamic  effects  arising  from  the  overall  motions  of 
the  craft  as  well  as  the  results  of  propulsion,  control  and  ; 

environmental  forces  which  may  affect  the  craft  motions  and  j 

maneuvers.  In  a functional  form,  these  components  can  be  expres- 

i 

sed  generally  as:  , 


(1) 


X \ 

y i 

z I 

K ( 
M ) 

N / 


f (u,v,w,p,q,r,u,v,w,p,q,r,XQ,y^,z^,((i,e,i|»,6,c) 


(2) 
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In  the  above  equation,  x^,  y^,  and  are  the  position  components 
or  the  linear  displacements  of  the  craft  and  <t>,e,  and  ip  are  the 
angular  displacements.  The  parameter  6 represents  a general 
description  of  the  effect  of  various  propulsion  and  control 
schemes,  and  the  parameter  e represents  the  effect  due  to  en- 
vironmental disturbances  such  as  waves.  This  functional  form 
equation  shows  clearly  the  dependence  of  the  external  force  and 
moment  on  the  various  variables.  To  reduce  this  functional 
relationship  into  a useful  mathematical  form,  a Taylor  expansion 
is  usually  applied  provided  that  the  non-dimensional  proportion- 
ality constants  are  known  or  determinable.  By  keeping  a suf- 
ficient nvunber  of  terms  for  each  variable,  forces  and  moments 
can  be  expressed  in  a desired  order  of  these  variables  to  ac- 
count for  non-linear  effects. 


The  determination  of  the  proportionality  constants,  or  the  hydro- 
dynamic  derivaties,  by  analytical  methods  is  generally  limited 
only  to  the  linear  terms.  The  non-linear  coefficients  are 
normally  determined  experimentally  by  means  of  captive  model 
tests.  In  the  present  analysis  external  forces  and  moments  are 
determined  analytically  on  the  basis  of  physical  concepts.  By 
this  approach  various  non-linear  features  can  be  included  with- 
out the  backup  of  experimental  information.  The  general  rep- 
resentation of  the  total  force  (or  moment)  acting  on  an  SES  is 
assumed  to  be  composed  of  various  components  as  follows: 


F. 

1 


P + F 

sidewall  i 

^ ^appendages  i 


cushion  i ^ ^seals  i ^ ^aerodyneimic  i 

^ p 4*  F . + F 

propulsion  i control  i waves 


i 
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where  i = 1 to  6,  represents  a particular  mode  or  direction  of 
motion.  The  calculation  of  each  of  the  component  forces  is 
discussed  in  the  following  sections. 
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3.0 


FORCES  AND  MOMENTS  - CRAFT  DYNAMICS 


3.1  Sidehull  Forces 

The  calculation  of  the  forces  acting  on  the  sidehulls  assumes 
that  each  component  of  these  forces  falls  into  one  of  the  two 
major  categories,  namely  viscous  and  non-viscous.  The  non- 
viscous  portions  are  those  directly  related  to  the  dyncimic  fluid 
pressure  resulting  from  the  sidehull  motion.  These  forces  are 
intimately  associated  with  the  energy  exchanges  between  the  fluid 
and  the  moving  sidehull  and  can  be  deduced  from  the  fundamental 
principles  of  classical  mechanics.  Consequently,  all  non-viscous 
terms,  both  linear  and  non-linear,  can  be  analytically  identified 
as  functions  of  the  body  added  inertia,  provided  that  the  non- 
viscous  dissipative  damping  is  negligible.  The  viscous  portions 
are  drags  created  through  various  origins.  The  term  drag  cus- 
tomarily refers  to  the  total  resistance  of  the  craft  in  its  axial 
direction,  which  consists  of  several  components  attributive  to 
several  different  items,  and  will  be  considered  in  detail  in  a 
later  section.  In  the  present  section,  only  contributions  due 
to  sidehulls  are  considered.  These  contributions  are  normally 
treated  as  dependent  on  the  square  of  the  velocity  through  propor 
tional  empirical  constants.  Some  details  for  the  calculation  of 
both  the  viscous  and  non-viscous  forces  on  the  sidehull  are  given 
in  the  following; 

(a)  Hydrodynamic  pressure  on  sidehull 

Because  of  the  narrow  hull  geometry,  the  calculation  of  the  hydro 
dynamic  forces  on  the  sidehull  can  be  performed  according  to  the 
fundamental  concept  of  slender  body  theory.  For  a slender  body 
of  constant  speed  U in  an  inviscid,  incompressible  fluid  the 
linearized  free  surface  condition  is  given  by; 


o 


(3) 


+ g 

XX 


"z  = 


f 


\ 


Where  * is  the  velocity  potential  and  g the  gravitational  constant. 
Since  the  sidehull  iiranersion  is  normally  small  in  comparison  with 
the  craft  length,  the  above  condition  is  more  conveniently  analyzed 
through  its  non-dimensional  form  as  follows: 


x'x 


z ' 


= o 


(4) 


Here  F is  the  Froude  number  based  on  the  craft  speed  and  sidehull 

length;  x'  is  a non-dimensional  axial  coordinate  referenced  to 

the  craft  length  L,  and  z'  is  a non-dimensional  vertical  coordinate 

referenced  to  the  craft  immersion  d.  This  normalization  brings 

, and  41  , to  the  same  order  of  magnitude.  The  Froude  number  F 
XX  z 

is  typically  of  the  order  of  1 or  2 for  an  SES.  Since  the  immersion 

. -2 
ratio  d/L  is  small  (of  the  order  of  10  for  a normal  sidehull) , 

the  second  term  in  the  above  equation  is  normally  dominant.  Con- 
sequently, the  free  surface  condition  can  be  approximated  by 


♦2=0  (5) 

which  is  equivalent  to  the  condition  for  a positive  reflection  in 
the  free  surface. 


The  expression  of  the  boundary  condition  suggests  that  the  problem 
can  be  treated  as  a body  moving  in  an  infinite  medium,  in  which 
the  dissipative  damping  is  negligible  and  as  shown  by  Lamb  [4], 
the  hydrodynamic  effect  is  entirely  determinable  as  a function 
of  the  added  mass  along  the  principal  axes  of  the  body.  Following 
the  procedure  of  classical  mechanics,  the  effects  of  the  hydro- 
dynamic  pressure  on  the  craft  can  be  easily  obtained. 

In  the  derivation  of  the  force  relations,  the  three  dimensional 
sidehull  is  considered  as  a number  of  segments  along  the  longi- 
tudinal axis.  Each  segment  is  considered  individually  as  a two 
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dimensional  problem;  interferences  between  segments  are  ignored. 
Consequently,  the  relative  fluid  velocities  at  the  center  of  a 
segment  x are  given  by 


"r 

(x,  t) 

= u 

V 

r 

(x,t) 

=v+xr- 

fp 

(6) 

w 

r 

(x,t) 

= w - xq  + 

hp 

here 


2 2 2 2 
u + V + w = U 


and  U the  resultant  velocity  of  the  craft.  The  variables  h and 
f are  the  lateral  and  vertical  moment  arms  about  the  craft  center 
of  gravity,  respectively.  The  above  relations  are  applicable  to 
both  the  starborad  and  port  sidehulls;  a negative  value  of  h 
should  be  used  for  the  port  sidehull. 


We  shall  first  consider  the  segment  to  be  axially  symmetric  and 
having  component  added  masses  m and  m along  the  craft  lateral 
and  vertical  axes,  respectively.  For  asymmetrical  segments  with 
respect  to  the  axial  axis,  additional  treatment  will  be  consider- 
ed later . The  added  mass  component  along  the  axial  direction  is 
ignored  in  the  analysis  according  to  the  slender  body  approach; 


however,  estimates  of  surge  effect  by  a gross  approximation 

of  this  component  are  included  in  the  numerical  model,  as  will  be 

shown  in  Appendix  A.  Specifically,  m „ and  m are  written  as  follows 
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and  k 

are 
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added 

generally  a function  of  geometry  and  frequency;  b(x)  is 
local  beam  of  the  segment  at  water  line  and  d(x)  is  the 


(7) 
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are 

the 

local  draft. 


The  kinetic  energy  of  a unit  slice  of  fluid  can  be  written  as 


T(x,t)  = (8) 

The  hydrodynamic  forces  and  moments  acting  on  a unit  axial  length 
are  then  given  by: 
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The  kinetic  energy  T at  a fixed  cross  flow  plane  is  a function  of 
X and  t.  The  total  derivative  ^ therefore  must  reflect  the 
changing  coordinate  of  the  cross  flow  plane  with  time,  thus 

_ J| _9_ 

dt  3 t 3 X 

Substituting  (8)  into  (9) , carrying  out  the  differentiation,  and 
then  integrating  over  the  sidewall  length,  gives  the  total  hydro- 
dynamic  forces  and  moments  acting  on  the  craft.  These  forces  and 
moments  include  both  the  linear  and  non-linear  hydrodynamic  con- 
tributions. A detailed  breakdown  of  these  contributions  is  given 
in  Appendix  A. 
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It  has  been  mentioned  earlier  that  m and  m are  for  axially 

yy  zz  •* 

symmetric  sections.  More  often  the  sidewall  sections  are 
asymmetrical.  This  asymmetricity  gives  rise  to  cross  coupling 
effects  which  are  estimated  as  follows: 


mzy  (X)  = • m^y  (X) 

where  m^^  (x)  represents  the  sectional  added  mass  at  station  x, 


(10) 


relating  the  fluid  momentum  in  the  lateral  direction  y to  the 
local  normal  motion  in  the  direction  z.  Similarly,  m^^  (x)  can 
be  interpreted  as  the  added  mass  relating  vertical  fluid  momentum 
to  the  local  lateral  motion.  The  coefficients  k and  k are 

y z 

estimated  using; 

1 

^y  " K ~ N (x) 
z z 

where  N^Cx)  and  (x)  are  average  values  of  the  horizontal  and 
vertical  unit  normal  components  of  the  hull  cross-section  at 
station  x.  The  average  is  taken  with  respect  to  the  wetted  length 
of  the  hull  cross  sectional  area. 


(b) 


Hydrostatic  Forces  and  Moments 


The  hydrostatic  force  acting  on  the  body  is  obtained  by  integrating 
the  hydrostatic  pressure  over  the  entire  wetted  body  surface  and 
is  nxamerically  equal  to  pgA,  where  p is  the  density  of  the  fluid, 
g is  the  acceleration  of  gravity  and  A is  the  volume  of  the  dis- 
placed fluid.  Let  the  sectional  area  at  station  x be  s(x),  which 
is  a function  of  draft  d defined  as 


d(x)  = D(x)  + C - xsine  + Dsin(J> 


(12) 
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where  D(x)  is  the  initial  draft  at  station  x and  B is  the  half- 
spacing of  the  sidehulls;  ?,0  and  <|)  have  been  defined  before  as  the 
instantaneous  motion  displacements  of  heave,  pitch  and  roll, 
respectively.  The  total  buoyancy  force  is  then  given  by: 


^Buoy 


-/s(x 


) dx 


(13) 


where  the  integration  is  carried  over  the  sidehull  length  from 
stern  to  bow.  The  force  component  along  the  body  normal  axis  z 
is  then  given  by: 

^Buoy  " ®/ 

and  the  component  along  the  longitudinal  axis  is 
^Buoy  " ®/ 

The  hydrostatic  restoring  moments  are 

Msuoy  = s(x)  X dx  (pitch) 


(14) 


(15) 


(16) 


Suoy  = - 


/ 


) * h (x)  dx  (roll) 


(17) 


where  h(x)  is  the  buoyancy  arm  from  the  craft  centerline.  This 
quantity  normally  does  not  vary  significantly  over  the  sidehull 
length  and  approximately  equals  to  the  half-spacing  B.  Consequently, 
the  righting  moment  can  be  approximated  by 
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B-Z„ 
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dx 


(18) 
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(c)  Sidehull  Drag 


The  axial  drag  on  the  sidehulls  arise  from  two  basic  sources- 
Firstly,  the  frictional  drag  caused  by  the  viscous  effects  of 
the  fluid  over  the  body,  and  secondly  the  base  pressure  drag 
which  arises  due  to  the  wave  separation  aft  the  transom.  In 
addition  to  these  two  basic  sources,  there  exists  expecially 
at  high  speed  a significant  spray  drag.  In  this  subsection, 
we  shall  limit  our  discussion  only  to  these  three  components 
which  relates  with  the  sidehull  geometry.  Drag  contributions 
related  with  other  sources,  including  cushion  pressure  (wave), 
craft  aerodynamics  and  cushion  seals  will  be  discussed  separately 
later. 


The  sidehull  viscous  drag  ic  primarily  a function  of  the  Reynolds 
number  and  surface  finish  of  the  body  and  is  determined  by; 


D^  . = p u S 

Fric  w F 


where  is  the  sidehull  wetted  surface.  Assuming  the  surface 
finish  smooth,  the  standard  ITTC  relationship  is  used  to  ap- 
proximate the  skin  drag  coefficient; 


„ _ 0.075 

'"F  2 

(Logj^QRn  - 2)^ 

where 

Rn  = -^  , the  Reynolds  number, 

in  v/hich 

L = sidehull  length 
V = kinematic  viscosity  of  fluid. 


The  pressure  drag  component  is  estimated  by  another  drag  coef- 
ficient given  by  the  following  expression  [5]; 
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(19) 


(20) 


wa 


■ 


, = 0.10 


(21) 


and  the  base  pressure  drag  is  then  calculated  based  upon  the  side- 
hull  base  area  Sg  as  follows: 


Base 


= *5 


(22) 


The  coefficient  C^g  in  Equation  (21)  is  a base-area  based  skin 
drag  coefficient  defined  as  follows: 


S 

C = C — ^ 
^fB  Cf  Sg 


(23) 


At  high  speeds  and/or  at  shallow  immersions  the  likelehood  of 
ventilation  is  almost  certain.  Under  this  condition,  a base 
drag  coefficient  defined  by  the  following  is  applied: 


Here,  = Froude  number  based  on  transom  immersion  d.  The  trans- 
ition from  a wetted  wake  regime  to  a fully  vented  regime  is  a 
function  of  F^.  Empirically  established  relation  shows  that  the 
base  is  fully  vented  when  F^  > 3.2. 


The  spray  drag  is  one  of  the  most  important  parameters  to  affect 
the  sidehull  performance.  Unfortunately  very  little  information 
exists  regarding  this  drag  component.  In  an  effort  to  provide 
some  insight  into  this  area,  some  experimental  works  [3]  were 
done  to  ascertain  the  degree  of  spray  generation  by  utilizing 
photographs  to  determine  the  added  wetting  caused  by  spray.  On 
the  assumption  that  the  major  contribution  of  spray  to  drag  is 
due  to  frictional  effects,  this  information  is  used  to  generate 
a spray  drag  coefficient.  This  latter  assumption  is  supported 
by  investigations  performed  on  surface  piercing  struts  in  [6]. 

In  keeping  with  the  findings  of  16],  the  spray  drag  component  is 
cast  in  the  form: 
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= f(q,c,t) 


(25) 


D 

spray 

where  q is  the  dynamic  pressure,  c is  the  characteristic  length 
from  the  point  of  generation  of  the  spray  to  the  maximum  thick- 
ness point  and  t is  the  maximum  thickness  of  the  body. 

Based  on  the  results  of  [3]  the  following  formula  is  used  for 
estimating  the  spray  drag  caused  by  a typical  SES  sidehull  con- 
figuration : 

“spray  ' '=f  '1'=’^  '26) 

In  this  formula  the  value  of  t is  taken  to  be  the  maximum  thick- 
ness in  the  waterline  plane  and  the  friction  coefficient  is 
evaluated  at  the  appropriate  Reynolds  number.  This  result  has 
shown  excellent  agreement  with  the  test  results  [3]. 

(d)  Viscous  Cross-Flow  Effect 

In  contrast  to  the  hydrodynamic  pressure  forces  presented  in  (a) , 
this  component  arises  from  the  real  fluid  effects  on  the  sidehull. 

The  contribution  of  this  term  to  the  overall  force  on  the  sidehull 
is  small  for  small  hull  excursions  but  becomes  dominant  as  the 
craft  motions  become  large.  In  the  present  study,  this  force  is 
calculated  according  to  the  following  formula; 

Cross-flow  forces  = % p Cj^S  |v^|  (27) 

where 

Cjj  = cross  flow  drag  coefficient 
S = projected  area  of  the  sidehull 
= relative  flow  velocity 
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The  coefficient  Cj^  is  a function  of  the  hull  geometrical  shape 
and  the  Reynolds  number.  It  is  usually  obtained  from  experi- 
mental data  by  judicial  interpretation  of  the  results  from  tests 
done  on  idealized  geometric  shapes. 

3.2  Cushion  Pressure  Forces 

In  addition  to  the  forces  imparted  to  the  craft  through  the  side- 
hulls,  the  cushion  pressure  supporting  the  craft  has  a significant 
effect  on  the  craft  dynamics.  For  the  present  investigation, 
since  a general  type  of  craft  is  being  considered,  the  supporting 
air  cushion  is  considered  as  basically  a rectangular  box  bounded 
by  the  sidehulls  and  the  forward  and  aft  seals.  The  plenum  is 
fed  by  a fan,  or  system  of  fans,  with  a specified  fan  character- 
istic. The  basic  equation  governing  the  air  flow  into  and  out 
from  the  cushion  is  the  conservation  of  mass  which  states  that 


m = p (Q.  - Q . ) 

in  out 


where  m = rate  of  change  of  mass  in  the  plenum 

Q.  = total  flow  into  the  plenum 
in 

= leakage  flow  out  under  the  seals  and  sidehulls 


(28) 


The  flow  into  the  air  plenum  is  governed  by  the  lift  fan  character- 
istic Q,  which  is  a function  of  the  cushion  pressure  p as  follows: 


= Qf  = “o 


“l  Pc 


^ “2Pc 


where  aQ,aj^,a2  are  proportional  constants.  The  leakage  flow  is 
considered  to  be  governed  by  an  orifice  type  flow  equation  given 
by : 


Q 


out 


(30) 
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where 


I 


= discharge  coefficient 
p = density 


p = atmospheric  pressure 

d 

p^  = cushion  pressure 
A = leakage  area 

Xj 


The  leakage  area  in  this  equation  is  comprised  of  several  com- 
ponents. These  can  be  represented  as 


+ A + A 
sw  s 


(31) 


where  A^  = equilibrium  leakage  flow  area 

A = leakage  area  under  the  sidehull 
s w 

Ag  = leakage  area  under  the  seals 


The  equilibrium  leakage  area  is  that  leakage  required  to  maintain 
the  craft  at  a given  equilibrium  condition  when  not  disturbed  by 
any  waves.  Under  actual  conditions  this  leakage  area  can  be  ad- 
justed by  changing  the  setting  of  the  seals  and  determines  the 
equilibrium  immersion  of  the  craft.  The  equilibrivim  state  is 
obviously  given  by: 


(Pc  - Pa)  ^c  = - ^Buoy 

where  W = craft  weight 

^Buoy  " buoyancy  force 
A^  = pleniim  area 

The  areas  A and  A are  obtained  at  each  instant  in  time  by  in- 
sw  s 

tegrating  the  clearance  of  the  sidehull  and  seals  with  respect  to 
the  local  water  elevation.  The  total  leakage  area  Aj^  obviously 
changes  as  a function  of  time  depending  on  the  craft  motions  and 
the  free  surface  elevation. 
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The  pressure  in  the  plenum  is  assumed  to  vary  according  to  an 
adiabatic  compression  law,  namely 

p^  = constant  (33) 

where  V is  the  plenum  volume  and  y=1»4,  the  adiabatic  constant. 

By  substituting  m=pV,  the  mass  conservation  equation  becomes: 

(34) 

These  equations  together  determine  the  cushion  pressure  and  air 
flows  into  the  plenum  and  consequently  the  resulting  forces  and 
moments  on  the  craft  can  be  calculated  as  follows: 


V = 


^in 


- Q 


out 


Y 

pres 

Y 

pres 

Z 

pres 

Y 

pres 

M 

pres 


(Pc  ~ Pg)  ® 

■ <Pc  ■ Pa^  \ 


- (P^  - P3) 


B. 


- ''pres  - -f  tan  ♦) 

''pres  ^ tan  e) 


where  VCG 


B 

P 


4’ 
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= Vertical  height  of  CG  above  mean  water  level 
= Width  of  the  plenum 
= Length  of  the  plenum 
= Roll  angle 
= Pitch  angle 


(35)  I 


In  addition  to  the  pressure  forces,  the  cushion  pressure  acting  on 
the  free  surface  generates  waves  and  causes  a significant  drag 
effect.  The  calculation  of  the  wave  resistance  for  a pressure  patch 
is  straight-forward.  Following  the  method  of  Yim  [7],  the  total 
wave  resistance  for  a combination  of  a pressure  planform  and  two 
sidehulls  in  a channel  of  width  W can  be  written  as  follows: 
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r 


where 


wave 


■E 

in=0 


m 


2 2 
(P  + Q > 


(36) 


P + iQ  = 


4l|w  / / Pc(^'y)exp[ik^V'^27ry  dxdy 


16ii^pk 


PK  ^ ^ 

— -JJ  a(x,z)exp[k^Aj^(Aj^z+ix) +i2itB  ^]dxdz 


m 


■u 


for  m = 0 
for  m > 1 


P(,(x,y)=  pressure  distribution  on  planform  S 


.2 


= g/u 


= gravitational  acceleration 


= ship  speed 


= density  of  water 


a(x,y)  = singularity  distribution  for  representation 
of  sidehull  D 


= Half-spacing  of  sidehull 


m 


A * “ y-  (^y 


Assuming  that  the  pressure  planform  is  rectangular  and  the  side- 
hulls  are  of  parabolic  shape,  the  above  integrals  can  be  evaluated 
easily  and  the  result  is  given  by: 
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where 


1 + / 1 + 


X = pU^  L ^ e 

wave  ^ ^ p ^ m 

m=0 


8b  1 /o  ™ \ 1 


_^-4koH 


Vw7 

(^^)  “"‘’'I*"’  ! 


k,  = k L /2 
1 op 

W,  = W/L  /2 

1 p' 

W = total  weight  of  the  craft  = p B L 

c p p 

B = plenum  width 
P 

Lp  = plenum  length 

b = sidehull  width 
H = sidehull  draft. 

The  above  equation  is  derived  for  the  case  of  a finite  channel 

width  W.  Numerical  results  show  that  when  w > 10  L the  above 

P 

relation  asymptotically  applies  to  the  case  of  unrestricted  waters. 

3.3  Seal  Forces 

In  the  present  study  a very  simplified  seal  configuration  has  been 
adopted.  The  purpose  of  this  simplification  is  to  avoid  too  many 
details  which  would  reflect  a given  design  rather  than  a general  craft. 


l 


i 


These  seals  are  assumed  to  be  of  the  flexible  fabric  type,  such 
as  a bag  and  finger  design,  which  when  immersed  in  the  water 
simply  deflect  and  lie  on  the  water  surface.  Hence,  they  do  not 
contribute  any  forces  or  moments  to  the  craft  except  for  their 
axial  drag  and  the  forces  and  moments  arising  due  to  the  shift 
of  the  center  of  air  pressure  in  the  plenum  caused  by  the  chang- 
ing imprint  length  on  the  water.  Referring  to  Figure  3,  which 
shows  the  deflection  of  a simple  bow  seal,  the  following  equations 
are  derived: 


^seal  ^^c  ^w  ®p 

^seal  ~ ^seal  ^s 


(38) 


where 


1 =1  tan  e 

■^w  sin  e„ 

Ig  = distance  of  seal  tip  to  C.G. 
6„  = sheer  angle  of  seal 

O 

0 = trim  of  craft 


the  axial  drag  due  to  the  bow  seal  is; 


= C<:  & u^  IB 
seal  r 2 w p 


(39) 


here  is  the  friction  coefficient,  derived  from  the  Reynolds 
number  as  follows: 


0.044 

f = 7176 


(40) 


n 

and  R^  is  the  Reynolds  number  based  on  the  seal  wetted  length  1^. 
Similarily,  the  force  and  moment  due  to  the  deflection  of  the  stern 
seal  can  be  calculated. 
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Figure  3;  Schematic  of  Seal  Force 


3 . 4 Aerodynamic  Forces 


The  aerodynamic  forces  and  moments  acting  on  the  craft  have  been 
simplified  and  are  represented  by  an  overall  drag  coefficient 
based  on  the  frontal  area  of  the  craft.  This  drag  coefficient 
has  been  selected  to  correspond  to  test  results  on  typical  SES 
configurations.  The  force  is  simply: 


(41) 


1 


where  is  the  frontal  area  of  the  craft. 


No  aerodynamic  lift  or  moments  have  been  used  in  the  present  study 
and  no  wind  conditions  are  considered.  Consequently,  only  an 
axial  aerodynamic  force  is  included  in  the  present  study. 

I 

I 

3.5  Propulsion  and  Thrust  Control 


Various  methods  of  propelling  and  control  for  SES  exist.  Current 
emphasis  for  SES  propulsion  is  a water jet.  This  device  allows  for 
thrust  vectoring  or  differential  thrust  for  maneuver  and  turning. 
Although  only  straight  line  operation  is  considered  in  the  present 
study,  a typical  propulsion  and  control  scheme  is  included  in  the 
numerical  code.  Some  details  for  the  calculation  of  these  forces 
are  given  in  the  following. 


(a)  Propulsion 


The  present  scheme  assumes  that  four  waterjet  nozzles  are  used  for 
propulsion  and  control.  These  four  nozzles  are  distributed  athwart 
the  transom  so  as  to  deliver  thrust  for  propulsion  as  well  as  to 
provide  turning  moment  for  maneuvering.  In  the  present  study  the 
engine  thrust  of  the  following  form  is  used  for  the  numerical  model- 
ing 
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(42) 


T = A,U  + A_U  + A- 
g 1 2 i 


Here  T represent  the  gross  thrust  and  U is  the  craft  speed;  A^ , 
and  A^  are  the  proportional  constants.  Similarly,  the  total 
momentum  drag  of  the  water jet  system  is  approximated  by  a linear 
function  of  U and  given  by 


D = B-U  + B., 
ml  2 


where  B^^  and  B2  are  constants. 


(b)  Thrust  Control 


The  basic  control  scheme  considered  here  is  thrust  vectoring  by 
which  the  side  thrust  and  turning  moment  are  generated  through 
deflecting  the  nozzles  as  well  as  varying  the  power  level  on  dif- 
ferent nozzles.  A special  case  of  this  scheme  is  known  as  dif- 
ferential thrust,  in  which  the  turning  moment  is  generated  by  in- 
creasing the  power  on  one  jet  and  decreasing  it.  on  the  other  with- 
out deflecting  the  nozzle  direction. 

Let  6 be  the  horizontal  deflection  angle  of  the  jet  nozzle,  positive 
toward  portside  and  a be  the  vertical  tilt  angle,  positive  upward, 
then  the  force  and  moment  contributions  for  a craft  with  a trim 
angle  6 are  given  by: 


X =y^  [T  .cos6.cos(a.-e)-D  . ] 
0 /L^  gi  1 1 mi 


1 

^6  =E 


= ^ T . I sin (a^-e) y^-sin6^cos (o^-e) z^] 


6 gi 

i=l 
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^6  (y.cos6.-x.sin6.)-D^.y.  ] 

i=l 

in  which  x^,y^  and  are  the  coordinates  of  the  centerline  location 

of  the  ith  nozzle,  T . is  the  gross  thrust  at  the  same  nozzle  and 

y j* 

Dmi  the  corresponding  momentum  drag  of  the  waterjet  inlet.  The 
turning  forces  and  moments  are  assumed  to  be  confined  in  a horizon- 
tal plane,  so  that  no  heave  and  pitch  effects  are  developed  from 
the  maneuver. 

3.6  Appendages 

Usually,  especially  in  the  case  of  an  SES,  directional  stabilizers 
or  fins  are  fitted  in  order  to  ensure  directional  stability.  In 
the  present  study  a nominal  configuration  of  fins  has  been  assumed. 
Standard  representations  of  these  appendages  are  included  in  the 
analysis  to  account  for  drag  and  lift  forces. 

These  fins  are  considered  as  base  vented  parabolic  sections  designed 
to  produce  the  required  lateral  stiffness  to  the  craft  to  ensure 
stability.  Two  items  attributing  to  the  total  drag  of  these  fins, 
namely  pressure  drag  and  frictional  drag,  are  considered.  Since 
the  quality  of  these  surfaces  has  to  be  kept  smooth  and  constantly 
clean  to  ensure  cavitation  free  operation,  it  is  assumed  that  for 
all  intents  and  purposes  the  surface  is  close  to  be  hydrodynamically 
smooth  and  consequently  the  frictional  drag  is  computed  on  this 
basis.  The  total  drag  of  the  stabilizer  surface  can  be  written  as: 

Xfin  = *5  PU^A[C^  + 2 C^]  (45) 

where 

A = fin  surface  area 

= pressure  drag  coefficient 
= frictional  drag  coefficient 


30 


For  a base  venting  parabolic  section  we  have 


(46) 


t , 


where  — is  the  thickness-chord  ratio,  and,  for  a smooth  surface 
the  frictional  coefficient  can  aoain  be  approximated  by  the  formula: 


C,  = 0.044/R 
f n 


1/6 


(47) 


here  is  the  Reynolds  number  based  on  the  mean  chord. 

The  lift  force  from  the  fin  is  calculated  using  the  following  clas- 
sical lift  equation. 


Yti„  . ^ 


(48) 


where 

r - 

^ AR+3 

AR  = aspect  ratio  of  the  fin. 

3.7  Motion  Alleviation  and  Control 

It  is  essential  for  the  proper  operation  of  SES  to  maintain  the 
cushion  bubble  through  a series  of  blowers  or  fans.  A proper 
control  of  the  fan  rpm  to  vary  the  plenum  pressure  may  not  only 
alleviate  the  craft  motion  but  also  maintain  the  craft's  forward 
speed.  In  this  present  study,  a simplified  but  representative 
control  scheme  is  included  in  the  analysis  so  that  a gross  effect 
of  the  control  device  to  the  craft  response  can  be  identified. 


Heave  acceleration  is  coupled  directly  to  the  fluctuations  of 
cushion  pressure.  When  an  SES  running  over  a wave  crest,  the  resultant 
displacement  of  the  water  surface  compresses  the  cushion  air  and 
creates  an  upward  force  or  acceleration.  Conversely  when  the  SES 
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passes  over  a wave  trough,  the  expansion  of  the  air  volume  bring 
the  craft  downward  until  it  is  again  supported  by  the  proper  pres- 
sure. The  basic  concept  of  the  present  scheme  is  to  regulate  the 
pressure  of  the  cushion  plenum  so  as  to  compensate  the  force  excited 
by  the  environment  and  keep  the  craft  in  a nominal  elevation.  A 
fundamental  method  to  control  the  air  pressure  is  by  means  of  reg- 
ulating the  cushion  venting  or  the  equilibrium  leakage.  For  instance, 
when  the  plenum  air  is  compressed  the  vent  can  be  opened  more,  and 
conversely  when  the  plenum  pressure  is  dropping,  the  area  of  the  open- 
ing should  be  reduced  or  entirely  closed.  Let  A,  be  the  area  of  the 

nd 

vent.  In  general  the  regulation  of  this  area  can  be  expressed  by: 


ha 


(49) 


The  above  equation  simply  indicates  that  the  area  of  the  vent  is  to 
be  controlled  not  only  by  the  cushion  pressure  and  its  rate  of 
changes  but  also  the  craft  heave  motion  and  its  derivatives.  A 
proper  design  of  the  control  constants  for  each  of  this  variable 
is  required  in  order  to  maintain  the  craft  elevation  and  the  riding 
comfort.  Since  the  design  optimization  of  these  control  constants 
is  out  of  the  scope  of  the  present  study,  a simplified  but  repre- 
sentative scheme  as  follows,  depending  upon  only  p^  and  is  con- 
sidered in  the  analysis. 


A.  = c, 
ha  1 


^ ^2Pc 


(50) 


where  c^^  and  are  the  control  constants. 


In  addition  to  the  two 
control  constants,  an  upper  and  lower  limits  of  the  total  opening 
area  of  the  vent  are  possibly  assigned  in  the  computer  model. 
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4.0 


WAVE  ENVIRONMENT  AND  WAVE  FORCES 


4.1  Wave  Representation 

The  computation  of  explosion  generated  waves  can  be  divided  into 
three  parts;  ^hey  are  the  modeling  of  the  source  condition,  the 
calculation  of  propagation  and  transformation  of  waves  over  a 
given  bottom  topography,  and  the  determination  of  breaking  incep- 
tion and  wave  run-up  according  to  some  acceptable  criteria.  The 
last  two  parts  would  involve  tedious  bookkeeping  of  propagation 
history  from  point  to  point,  should  the  bottom  topography  be  ir- 
regular. Since  the  study  emphasizes  specifically  the  mathematical 
modeling  of  the  craft,  the  details  of  the  bottom  irregularities  are 
not  considered.  In  the  analysis,  the  continental  shelf  is  assumed 
to  be  two-dimensional  and  have  a constant  mild  slope,  consequently, 
the  wave  environment  can  simply  be  classified  into  two  character- 
istically different  groups;  deep  water  and  shallow  water  waves. 

4.2  Deep  Water  Wave  Generation 

The  deep  water  waves  theoretically  can  be  represented  by  sinusoids 
of  various  frequencies.  While  the  craft  responses  in  sinusoidal 
waves  are  to  provide  a general  indication  of  the  craft  character- 
istics as  a function  of  wave  period,  they  provide  little  information 
as  to  how  the  craft  responds  when  it  is  sufficiently  close  to  the 
source  region,  as  the  wave  amplitudes  are  normally  very  large  such 
that  the  linear  superposition  technique  is  not  valid  and  applicable. 
The  present  model  is  capable  of  simulating  either  a sinusoidal  wave 
system  or  an  idealized  explosion-generated  wave  system  at  a given 
stand-off  distance  from  the  source  at  any  time  after  detonation. 
Since  the  sinusoidal  wave  form  is  simpler  and  well-known,  only 
modeling  of  the  explosion-generated  waves  is  discussed  in  the 
following. 
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The  problem  concerning  waves  generated  by  an  arbitrary  but  local- 
ized disturbance  on  a free  surface  has  been  investigated  by 
Kajiura  [8].  In  analyzing  the  explosion-generated  waves,  the 
initial  disturbance  is  assumed  as  a parabolic  crater-like  shape 
with  radial  symmetry  such  that: 

'ry^ir)  = nQ[2  (VRq)  ^-1]  for  r < 

= o for  r > R 


where  = crater  height 


R = crater  radius 
o 


r = radial  distance 

The  waves  resulting  from  this  disturbance  at  a distance  r from 
the  center  have  been  given  by  Le  Mehaute  [9]  as 

■n(r,t)  = [-  1 "^3  cos(kr-a)t) 

where  k = wave  number,  determinable  from  the  relationship 
between  the  group  velocity  V and  the  arrival  time  t, 
such  that 


K ^ / 1 i_  2)cd » IT 

V(k)  - Jj  - (1  + 2kd^  “ t 


'gk  tanh  kd 


d = water  depth 


= Bessel  function  of  the  1st  kind  of  order  3, 


The  above  equation  shows  that  the  traveling  wave  train  possesses 
a series  of  amplitude  peaks  primarily  governed  by  the  modulating 
Bessel  function  J^.  The  problem  that  remains  is  to  relate  the 
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crater  dimension  and  to  the  yield  of  a given  explosion  so 
that  prediction  of  waves  at  a given  location  r and  time  t can  be 
made . 


It  is  noted  that  both  n and  are  not  easily  measurable.  What 
one  can  measure  are  the  wave  height  and  period  at  a large  distance 
from  the  source  disturbance.  It  is  in  fact  more  convenient  to 
measure  the  peak  amplitude  in  the  first  wave  envelope  at  a 

given  range  r,  and  the  corresponding  wave  number  can  be 

evaluated  by  knowing  the  arrival  time  t from  the  above  equations. 
Analytically,  one  can  show  that,  for  a particular  source  distur- 
bance n (r) , the  amplitude  of  the  maximum  wave  n is  inversely 
o max 

proportional  to  r,  and  the  corresponding  wave  number  k^^^^  depends 

only  on  the  crater  radius  R^.  For  an  explosion  in  sufficiently 

deep  water,  the  relationship  between  k and  R can  be  determined 

max  o 

from  the  first  stationary  value  of  as: 


k R 
max  o 


4.2 


(53) 


Once  the  measurement  of  k is  obtained,  the  crater  radius  can 

max 

be  readily  estimated.  From  equation  (52),  one  also  finds: 


r; 

o 


R 

o 


1.63 


n 

max 


r 


(54) 


when  k = Consequently,  the  crater  height  can  also  be 

estimated  from  the  measurement  of  wave  height  at  a distance  r. 

Empirical  correlations  of  measurements  of  n with  the  explosion 

max 

yield  W and  the  detonation  depth  Z show  that  there  is  a certain 

0 54  0 3 

trend  between  the  parameter  r/W  * and  the  parameter  Z/W  ' 

(W  in  lbs  of  TNT  equivalent)  ; this  is  best  presented  graphically 
by  plotting  the  experimental  data  points  as  shown  in  Figure  4.  It 
is  noted  that  there  are  two  peaks  appearing  in  the  former  para- 
meter over  a range  of  the  latter.  One  of  these  peaks  occurs 
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at  = -0.05  and  is  commonly  termed  as  the  upper  critical  depth. 

Detonation  at  this  depth  is  seen  to  produce  the  highest  responses. 

The  other  peak  occurs  at  Z/W^'^  = -2.7  and  is  usually  called  as 
the  lower  critical  depth. 

As  discussed  before,  the  parameter  k can  be  determined  by  mea- 
suring  the  arrival  time  of  the  first  wave  at  a given  distance.  By 
analyzing  the  wave  profiles  obtained  from  the  measurements,  empirical 
relationships  between  the  parameter  and  the  yield  wight  W 

have  also  been  established  through  experiments  of  small  chemical 
charges  in  deep  water  [9]; 

=0.44  for  0 > Z/W°‘^  > - 0.25 

(55) 

= 0.39  -0.25  > Z/W®*^  > - 7.5 

Using  these  empirical  relations  together  with  the  measured  results 
as  shown  in  Figure  4,  the  source  parameters  and  can  be  deter- 
mined for  any  yield  at  any  water  depth  and  detonation  depth.  Con- 
sequently, the  wave  history  at  any  point  r and  time  t can  be  cal- 
culated according  to  Eq.  (52) . 

4.3  Shallow  Water  Waves 

Two  types  of  waves  should  be  considered  with  regard  to  shallow  water 
wave  generation:  (1)  waves  produced  in  deep  water  as  a result  of 
an  offshore  explosion  which  transform  their  height,  shape  and 
internal  characteristics  through  the  process  of  shoaling,  refraction 
and  reflection  when  they  propagate  shoreward  into  shallower  water; 

(2)  waves  directly  generated  by  explosions  in  shallow  water  on  the 
continental  shelf.  As  far  as  the  wave  characteristics  are  concerned, 
these  waves  can  be  considered  identical  and  treated  in  a similar 
manner.  Before  entering  into  the  discussion  of  how  to  model  these 
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waves  mathematically,  however,  correlations  of  yield  with  wave 
generation  in  shallow  water  are  briefly  outlined  below. 


i 

The  method  of  correlation  between  wave  heights  and  yields  dis- 
cussed in  the  previous  section  is  limited  to  deep  water  wave  gen- 
eration such  that  d > 6W®’^.  For  explosions  in  water  of  depth 
such  that  1 < d/W*^'^  <6,  Le  Mehaute  [9]  proposed  a simple  inter- 
polation rule  to  fit  the  experimental  data  as  follows; 

" ■ re''*''''"''-"'  ' 

This  shows  that  the  generation  efficiency  is  reduced  by  half  when  ! ^ 

0 3 

the  parameter  d/W  ’ approaches  unity.  In  the  case  of  very  shallow 
water  where  d/W^*^  <<  1,  the  linear  model  is  no  longer  valid  and 
different  correlations  must  be  used.  Unfortunately,  there  are  very 
few  data  collected  from  shallow  water  explosions.  Among  the  avail- 
able data  as  listed  in  Table  2,  only  the  WES  test  data  [10]  provide 
a systematic  information  of  charge  weight  and  water  depth. 

By  means  of  small-scale  charges  (0.5  - 2048  lbs.)  the  WES  program 
was  designed  to  estimate  wave  effects  from  a 20  KT  explosion  in 
water  of  30  to  200  feet  deep.  The  charge  position  varied  from 
beneath  the  bottom  to  above  the  free  surface.  The  results  showed 
that  variations  of  Z/d  from  -1.0  to  0 had  little  effect  on  wave 
height.  In  contrast  to  deep  water  explosions,  the  most  significant 
parameter  for  wave  generation  in  shallow  water  is  water  depth, 
instead  of  charge  position. 

The  other  significant  feature  is  that  the  dispersion  law  is  dif- 
ferent for  waves  propagating  in  deep  and  shallow  water.  In  deep 
water,  wave  height  varies  inversely  with  radial  distance  r as  a 
combined  result  of  frequency  and  radial  dispersions.  In  extremely 
shallow  water,  however,  the  large  leading  wave  is  expected  to  be- 
have like  a solitary  wave  and  its  height  should  vary  inversely  as 
2/3 

r ' instead  of  r.  In  moderately  shallow  water,  the  relation  below  i 

should  hold  | 
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ioaif  ‘fM  *»P«0  [31] 
U?6I)  *8  [IT] 


n = constant  2/3  i p (d)  i 1 


By  correlating  the  WES  test  data,  the  following  empirical  formula 
have  been  derived 


W**/  -^+0.25 


0.93 


6 = 0.83  (d/W^'^^) 


0.07 


It  is  noted  that  the  power  6 varies  as  a function  of  the  depth  para- 
meter d/W^'^^;  for  the  very  shallow  case,  p approaches  2/3  as  a limit. 
While  the  derivation  of  the  above  relationship  has  assumed  that 
reasonable  extrapolation  of  the  WES  data  is  valid,  it  must  be  noted 
that  the  correlation  is  based  upon  the  experimental  data  covering 
d/W^^^  only  up  to  0.585.  There  is  no  indication  that  it  will  ap- 
proach the  empirical  relation  (56)  as  d increases. 

Equation  (58)  provides  an  empirical  relationship  for  predicting  the 
maximum  wave  height  at  any  distance  r from  a shallow  water  explosion. 
After  the  wave  height  is  determined  for  a given  explosion,  the 
important  procedure  required  for  numerical  simulation  is  a mathe- 
matical representation  of  the  wave  history  as  a function  of  time. 

As  mentioned  earlier,  disregarding  whether  the  waves  are  generated 
in  shallow  water  or  are  propagated  into  shallow  water  from  offshore, 
their  internal  characteristics  can  be  regarded  the  same  if  both  of 
their  height  and  period  are  identical. 


The  most  important  parameter  which  affects  these  waves  in  this 
case  is  the  local  water  depth.  As  is  well  known,  when  waves 
propagate  into  shallower  water,  their  crests  become  more  peaked 
through  shoaling.  When  the  local  depth  d becomes  so  shallow  that 
the  wave  height  h - 0.67  d to  0.78  d,  waves  start  to  break.  Analyt- 
ical and  experimental  studies  of  wave  propagation  and  transformation 
have  been  discussed  in  detail  by  Le  Mehaute  et  al.  [131.  Their 
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analyses  show  that,  among  many  existing  wave  theories,  the  cnoidal 
wave  theory  is  good  for  describing  the  transition  from  deep  water 
waves  to  shallow  water  waves  but  the  solitary  wave  theory  best 
describes  the  long,  shallow  water  waves  including  the  spilling 
type  breakers.  In  the  present  study,  the  solitary  wave  form  is 
used  for  numerical  modeling  of  the  long  period  waves  on  the  con- 
tinental shelf.  After  the  wave  height  and  period  is  determined 
according  to  the  yield  weight,  the  mathematical  representation 
of  waves  in  water  of  depth  d is  given  by 

n(r,t)  = h sech^  a (r-ct)  (( 


where 


h = wave  height 
a = ^3h/4d^ 

c = Vg^  (1  + h/2d) , the  wave  celerity 


4.4  Wave  Forces 

Equations  (52)  and  (60)  give  the  mathematical  forms  of  the  deep  water 
explosion  generated  waves  and  the  corresponding  shallow  water 
representation  as  a function  of  location  r and  time  t.  In  terms 
of  ship  coordinates,  the  wave  elevation  at  (x,y,z)  is  given  by 

(a)  explosion  generated  waves 

ri’(x,y,z,t)  = [-  ^ ” "^l 

(b)  solitary  wave 
_ 2 

T>(x,y,z,t)  = h sech  ax'  - n,  (62) 
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where 


X = distance  of  craft  center  from  the  burst 
o 

x*  = (x  cose  + 2 sine)  cosifi  + y sinij)  + (U-c)t 
= X sine  - ^ - y tan<|> 

U = ship  speed 
c = wave  celerity 

C/i)>/6  and  have  been  defined  in  Table  1 

From  these  equations,  the  wave  elevation  at  any  location  of  the 
craft  can  be  determined.  The  calculation  of  the  wave  forces  and 
moments  follows  the  same  technique  of  slender  body  theory  applied 
previously  to  obtain  the  sidehull  forces  and  moments.  In  this 
manner,  the  wave  forces  acting  on  each  sidehull  segment  are  first 
determined.  In  the  derivation  of  these  wave  forces,  the  validity 
of  the  Froude-Krilof f hypothesis  is  assumed.  Under  this  assumption 
the  pressure  in  the  wave  system  is  not  affected  by  the  presence 
of  the  body.  This  assumption  is  justified  in  the  present  analysis, 
as  the  wave  systems  which  we  are  presently  dealing  with  are  very 
long  period  waves,  in  which  the  static  behavior  or  the  pressure  ef- 
fect is  dominant  over  all  the  dynamic  influences.  After  the  wave 
force  on  each  sidehull  segment  is  determined,  the  total  forces  and 
moments  are  obtained  by  integration  over  the  entire  craft  length. 
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5.0 


NUMERICAL  PROCEDURES 


5.1  Method  of  Solution 


Summarizing  the  forces  and  moments  derived  in  the  previous  sections 
into  the  equations  of  motion  (Eq.  1)  provides  the  complete  in- 
formation of  this  dyneimic  system.  The  six  equations  describe  the 
force  and  moment  balances  along  the  body  coordinates  and  form  a 
set  of  first  order  differential  equations  with  six  independent 
variables  u,  v,  w,  p,  q and  r.  In  order  to  find  the  trajectory  and 
orientation  of  the  craft  with  respect  to  the  inertial  frame,  six 
more  first  order  differential  equations  are  needed  to  perform  the 
kinematic  transformation;  they  are 
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where  x^,  y^  and  represent  the  craft  c.g.  location  with  respect 
to  the  inertial  frame;  all  other  variables  have  been  defined  in 
Table  1.  In  summary,  there  are  12  variables  and  12  equations.  In 
addition,  the  cushion  volume  is  controlled  by  the  eauation  of  state 
and  the  fan  flow  which  are  independent  from  all  the  motion  variables. 
Including  the  cushion  volume  Equation  34,  there  are  altogether  13 
equations  and  13  unknown  variables.  These  13  first  order  equations 
have  been  programmed  in  a numerical  code  solving  simultaneously 
through  time-wise  integration.  The  solution  of  this  model  provides 
time  history  of  the  craft  trajectory  and  orientations  for  any  given 
wave  environment. 
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5.2  Computer  Program 


The  computer  program  developed  to  integrate  the  equations  of 
motions  under  the  influence  of  the  forces  and  moments  inputed  to 
the  craft  by  the  wave  environments  described  previously  is  now 
briefly  discussed. 

Initiation  of  the  computation  is  made  by  entering  into  the  program 
the  initial  conditions  of  the  craft  such  as  altitude,  speed  and 
craft  weight.  Overall  craft  dimensions  and  the  geometry  of  the 
sidehulls  and  seals  are  also  required.  With  the  above  information 
the  submerged  geometry  of  the  sidehulls  and  seals  are  calculated 
and  the  forces  and  moments  from  all  sources  described  in  Sections 
3 and  4 are  calculated.  The  initial  values  of  all  the  variables 
are  then  used  as  starting  values  at  time  t=0,  to  initiate  integra- 
tion of  the  equations  of  motion. 

An  overview  flow  chart  illustrating  the  general  operations  per- 
j formed  in  the  computer  is  shown  in  Figure  5.  The  input/out  format 

I is  given  as  Appendix  B and  the  complete  program  listing  is  included 

as  Appendix  C. 

A fourth  order  Runge-Kutta  scheme  is  used  for  the  integration. 

Through  numerical  exercises,  this  method  has  shown  to  be  extremely 
efficient.  The  time  step  used  in  calculation  varies  depending  upon 
the  input  exciting  wave  form  and  frequency.  Normally  for  a sinusoidal 
wave  run,  the  time  step  is  selected  equal  to  1/16  the  encounter 
period.  For  long  period  solitary  waves  or  explosion  waves,  1/64- 
1/128  of  the  encounter  period  has  been  shown  to  be  appropriate. 

In  general,  the  time  steps  used  for  most  of  the  calculations  are 
i between  0.1  - 0.2  second  or  on  the  order  of  0.05  in  terms  of  non- 

diniensional  time.  Typically,  for  a 100-second  real  time  simula- 
‘ tion,  a CP  time  of  19  second  is  required  using  a CDC  7600  computer. 


44 


6.0 


SES  RESPONSE  IN  WAVES 


\ 6.1  Craft  Characteristics 

The  computer  program  has  been  exercised  under  various  wave  condi- 
tions and  craft  headings  to  investigate  the  response  of  a typical 
SES.  Several  assumptions  are  made  regarding  the  craft  size  and 
dimensions.  In  order  to  make  the  results  relevant  to  current  in- 
terests, an  SES  having  characteristics  similar  to  the  2000  ton  class 
was  chosen.  Some  of  the  salient  features  of  this  craft  are  listed 
below; 


Craft  Weight 

Cushion  Length  = 
Cushion  Width  = 
Center  of  Gravity  location  = 


= 2000  tons 

= 240  feet 


88  feet 

130  feet  forward  of  transom 
24  feet  above  keel 


Engine  Thrust  Characteristics; 

Gross  thrust  in  lbs; 

T = 16.1  - 190  U + 528,000  - (1-a)  x 4 x 10^ 

g 

Momentum  drag  in  lbs: 

D = 3900  U - 1400  (1-a)  U 
m 

Here  o = power  percentage  level  and  U = craft  speed  in  knots 
Lift  Fan  Characteristics; 

Q,  = 75,497  - 121  (p  -p^)  cfs 

X C a 


Bow  Seal  Angle 
Stern  Seal  Angle 
Initial  Air  Leakage  Area 


30  degrees 
60  degrees 
49  ft^ 


The  definitions  of  inputs  to  the  computer  program  and  a sample  input 
case  are  shown  in  Appendix  B.  This  input  provides  further  informa- 
tion, including  details  of  the  sidehull  shapes  chosen.  This  shape 
is  representative  of  typical  sidehull  designs  for  SES. 
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6.2  Sinusoidal  Wave  Response 


i 


I. 


In  order  to  exercise  the  program  and  obtain  a reference  base  of 
craft  response,  a series  of  runs  is  conducted  using  a sinusoidal 

wave  excitation.  This  wave  is  chosen  to  correspond  to  the  signif- 

icant wave  height  and  period  of  a Sea  State  3, 

Wave  Height  = 5 feet 

Period  = 6 seconds 


Figures  6 through  9 illustrate  the  results  of  these  runs  for  the 
craft  at  a maximum  speed  of  80  knots  and  heading  angles  of  0°, 

45°,  135°  and  180°,  respectively.  The  heading  is  defined  as  the 
angle  of  the  course  of  the  craft  relative  to  the  direction  of  wave 
propagation.  A 0°  heading  indicates  that  waves  move  in  the  same 
direction  as  the  craft  and  normally  it  is  termed  as  following  se^s. 

A 90°  beam-sea  indicates  that  waves  propagate  from  port  to  star-' 
board  and  180°  heading  refers  to  head  seas.  In  these  figures  <he 
cushion  pressure  and  wave  profile  are  shown  in  the  upper  figure; 
the  pitch  and  yaw  in  the  middle  and  the  heave  and  roll  responses 
in  the  lower  diagram.  The  curves  are  shown  as  a function  of  a non- 
dimensional  time,T.  The  required  conversion  factor  to  real  time 
is  given  in  each  caption.  The  craft  immersion  at  the  center  of 
gravity  is  2.0  feet  at  an  initial  trim  of  1.0  degree. 

The  initial  conditions  for  all  these  runs  are  set  correspondingly 
to  those  for  operating  in  calm  water.  In  order  to  obtain  a smooth 
transition  from  calm  water  to  the  desired  wave  height,  the  excita- 
tional  wave  train  is  modulated  by  an  exponential  function  as  follows: 


f 


1 - e 


-at 


where  t is  time  and  a is  a positive  constant.  This  constant 
selected  such  that  the  resulting  wave  would  reach  its  steady 
usoidal  behavior  in  about  three  cycles. 
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Figure  6 Craft  Response  in  Sinusoidal  Wa- 
wave  period  - 6 sec,  craft  speei 
heading  - 0 deg,  t/T  - 1.10  sec 


Figure  7 Craft  Response  In  Sinusoidal  Waves  - wave  height  « 5 ft 
wave  period  - 6 sec,  craft  speed  - 80  knots,  craft 
heading  - 45  deg,  t/T  - 0.89  sec 


Figure  8 Craft  Response  In  Sinusoidal  Waves  - wave  height  - 5 ft, 
wave  period  - 6 sec,  craft  speed  - 80  knots,  craft 
heading  - 135  deg,  t/T  - 0.91  sec 


Figure  9 Craft  Response  In  Sinusoidal  Waves  - wave  height  “ 
wave  period  » 6 sec,  craft  speed  • 80  knots,  craft 
heading  « 180  deg,  t/T  “ 0.70  sec 


A summary  of  these  results  are  given  in  Table  3.  Two  values  are 
given  for  the  motion  response;  they  are  the  maximum  excursion 
and  the  peak  to  peak  value.  A positive  maximum  excursion  of 
heave  indicates  an  increased  immersion  in  waves,  and  similarly 
a negative  maximum  excursion  of  pitch  indicates  that  the  bow 
trims  downward  in  these  waves. 

As  seen  from  these  results,  the  craft  is  generally  well  behaved 
in  this  sea  state.  A relatively  larger  response  in  heave  and 
pitch  occurs  in  head  and  following  seas  as  expected.  Particularly 
of  interest  is  that  fairly  large  oscillations  in  cushion  pressure 
\ occur  in  head  seas.  Comparison  of  Figure  6 and  9 specifically 

illustrates  that  the  cushion  pressure  is  certainly  more  responsive 
to  head  seas  than  to  following  seas.  The  cases  with  quarterina 
seas.  Figures  7 and  8,  show  roll  and  yaw .responses . The  maximum 
roll  amplitude  is  less  than  1 degree  in  this  sea  state.  The  small 
yaw  angles  in  these  two  cases  simply  indicate  that  the  craft  would 
be  slightly  off  the  course  due  to  the  uneven  pressure  on  the  craft 
caused  by  oblique  waves. 

j 

I It  should  be  noted  that  no  heave  alleviation  is  considered  in  all 

these  runs  presented  above.  In  order  to  illustrate  the  effect  of 

heave  alleviation  control,  a duplicate  run  for  the  head  sea  case 

2 

was  conducted.  In  this  run  control  constants  = - 1.34  ft  sec 
and  C2  = 0 are  included  in  the  control  logic  as  given  in  Eq.  (50) . 
The  results  of  this  run  are  shown  in  Figure  10.  In  comparing  with 
Figure  9,  it  shows  that  both  the  cushion  pressure  oscillation  and 
the  heave  excursion  are  substantially  reduced.  The  improvement 
of  craft  behavior  through  a heave  alleviation  control  seems  clear- 
ly demonstrated  in  this  example.  Again  it  should  be  mentioned 
that  the  control  parameters  included  in  this  exaunple  are  for  il- 
lustration purpose  only,  as  no  optimization  analysis  of  these 
1 constants  has  been  conducted. 
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Figure  10  Craft  Response  with  Heave  Alleviation  Control  In  Sinusoidal 
Waves  - wave  height  5 ft,  wave  period  6 sec,  craft 
speed  - 80  knots,  craft  heading  - 180  deg,  heave  control 
constant  c,  “ - 1.34  ft  sec^.  t/T  - 0.70  sec 


6.3  Solitary  Wave  Response 


As  discussed  in  section  5,  the  waves  caused  by  deep  water  explosion 
when  propagated  into  shallow  water  can  be  represented  by  solitary 
waves.  In  this  regard,  a series  of  runs  to  investigate  the  craft 
response  to  a solitary  wave  at  various  headings  has  been  conduct- 
ed. Furthermore,  the  effect  of  varying  water  depth  and  wave  height 
is  examined.  For  these  runs  the  initial  trim  and  center  of  gravity 
immersion  are  the  same  as  before  taken  to  be  1 degree  and  2 feet, 
respectively.  Figures  11  through  17  show  the  results  of  these 
runs  for  a craft  speed  of  50  knots,  except  one  run  in  a near  hov- 
ering mode  (acutal  speed  is  5 knots) . The  maximum  craft  excursions 
are  summarized  and  shown  in  Table  4. 

The  hovering  condition  is  shown  in  Figure  11.  In  this  run,  the 
water  depth  is  taken  as  60  feet  with  a wave  period  of  15  seconds 
and  wave  height  of  6 feet.  With  these  conditions  the  ratio  of 
wave  length  to  cushion  length  is  2.88.  Behavior  of  the  craft  is 
quite  acceptable  with  the  maximum  pitch  and  heave  excursions  shown 
in  Table  4. 

The  effects  of  varying  heading  angle  for  the  conditions  described 
in  the  above  case  are  shown  in  Figures  12,  13  and  14.  As  seen 
from  these  figures,  the  pitch  excursions  increase  as  the  heading 
varies  from  a beam  sea  condition  to  a head  sea.  Attendant  with 
this  change  in  heading,  the  roll  and  yaw  decreases.  In  the  case 
of  90°  heading  or  beam  seas  the  roll  motion  is  excited  at  a natural 
period  of  about  4.7  seconds.  It  is  apparent  from  these  curves 
that  the  craft  will  survive  this  wave  environment  without  undue 
difficulty. 

Figures  15,  16  and  17  illustrate  the  behavior  of  the  craft  under 
different  combinations  of  wave  height,  water  depth  and  wave  period 
for  a head  sea,  i.e.,  heading  of  180°.  In  the  first  two  cases. 
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Table 


Figure  11  Craft  Response  in  Shallow  Water  - water  depth  = 60  ft 
wave  period  = 15  sec,  wave  height  = 6 ft,  craft  speed 
(hovering),  craft  heading  = 0 deg,  1 = 3.82  sec 


Craft  Response  in  Shallow  Water  - water  depth  * 60  ft, 

wave  period  = 15  sec,  wave  height  = 6 ft,  craft  speed  = 50  knots 

craft  heading  = 90  deg,  t/T  = 3.12  sec 
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Figure  15  Craft  Response  in  Shallow  Water  - water  depth  = 60  ft, 

wave  period  = 30  sec,  wave  height  = 10  ft,  craft  speed  = 50  knots, 
craft  heading  = 180  deg,  t.  _ 2.25  sec 


Figure  16  Craft  Response  in  Shallow  Water  - water  depth  = 30  ft, 

wave  period  = 30  sec,  wave  height  = 5 ft,  craft  speed  = 50  knots, 
craft  heading  = 18u  deg  1 = 2..78  sec 


#*•1 
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Figure  17  Craft  Response  in  Shallow  Water  - water  depth  = 30  ft, 

wave  period  = 15  sec,  wave  height  = 6.5  ft,  craft  speed  = 50  knots. 
Craft  heading  » 180  deg,  — = 0.91  sec 


as  shown  in  Figures  15  and  16,  craft  response  is  reasonable  al- 
though some  relatively  large  heave  and  pitch  excursions  occur  in 
the  10  foot  wave  condition. 

The  normal  reaction  of  the  craft  on  encountering  the  wave  front 
is  to  increase  its  trim  with  a simultaneous  increase  in  immersion. 
This  behavior  is  to  be  anticipated  since  the  craft  is  impacting 
the  wave.  In  accordance  with  the  larger  trim  angle,  the  cushion 
pressure  decreases  due  to  increase  leakage.  After  the  wave  crest 
has  passed,  trim  decreases  and  leakage  closes  and  cushion  pressure 
returns  to  normal.  The  craft  continues  its  pitch  oscillations 
at  its  own  natural  period  (-4.3  second)  and  consequently  the  im- 
mersion remains  deeper  than  the  nominal.  In  Figure  17  it  is 
apparent  that  large  excursions  in  pitch  and  heave  are  occurring 
and  furthermore  these  motions  are  diverging.  This  particular  run 
condition  is  taken  at  a ratio  of  wave  length  to  cushion  length  of 
2.15,  which  is  very  close  to  the  wave  pumping  condition  of  2. 
Therefore  it  is  expected  that  severe  conditions  will  arise.  As 
seen  in  Table  4,  the  maximum  heave  and  pitch  are  larger  in  rela- 
tion to  the  wave  amplitude  than  in  all  other  cases.  It  is  apparent 
that  under  this  condition  the  craft  is  not  likely  to  survive  with- 
out evasive  action. 


6.4  Deep  Water  Explosion  Wave  Response 

Samples  of  calculated  results  presented  in  this  section  are  for  a 
deep  water  explosion  wave  environment  generated  by  an  explosion 
yield  of  1 kiloton.  A device  having  this  yield  and  exploding  at 
the  upper  critical  depth  would  cause  a disturbance  having  a crater 
radius  of  835  ft.  and  crater  height  of  49  ft.  It  is  assumed  that 
the  stand-off  distance  of  the  craft  from  the  center  of  the  blast 
is  7500  ft.  The  initial  significant  wave  disturbances  would  take 
about  80  seconds  to  reach  to  the  craft  at  this  stand-off  position. 
Allowing  the  craft  to  have  80  seconds  reaction  time  to  initiate 
its  action,  some  calculated  results  are  shown  in  Figures  19  through  21. 
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Figure  18  Craft  Response  to  Explosion  Waves  in  Deep  Water  - yield  » 1 KT 
stand-off  distance  - 7,500  ft,  craft  speed  « 0 (hovering), 
craft  heading  - 180  deg,  t/T  - 8.93  sec,  T - 80  sec 
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Craft  Resi)onse  to  Explosion  Waves  in  Dee 
stand-off  distance  = 7500  ft,  craft  spee 
lieading  = 45°,  ^ = 15.3  sec,  T =80  sec 


Igure  21  Craft  Response  to  Explosion  Waves  in  Deep  Water  - 
yield  = 1 KT,  stand-off  distance  = 7500  ft,  craft 
speed  = 50  knots,  craft  heading  = 135°.  A = 6.76 
sec,  T = 80  sec  T 


From  Figure  18  it  is  seen  that  at  this  distance  from  the  blast, 
the  maximum  wave  height  encountered  is  approximately  7 feet. 

The  graph  shows  the  arrival  of  the  first  wave  group  and  the  sub- 
sequent response  of  the  craft.  The  results  are  for  the  craft 
in  hovering  mode,  head  into  the  waves.  As  seen  all  the  variables 
are  within  normal  excursions  with  a maximum  pitch  of  -1.55°  and 
heave  of  2.85  ft.  The  wave  envelope  shown  in  this  figure  is  typical 
of  the  explosion  generated  wave  envelopes. 

Should  a blast  occur  off  the  beam  of  the  craft  when  operatlna  at 
50  knots  the  results  indicate  that  the  craft  will  probably  not 
survive  the  waves.  As  seen  in  Figure  19  large  excursions  in  roll 
and  heave  are  experienced.  The  maximum  excursion  in  these  variables 
are  8.98°  and  4.85  ft,  respectively.  The  maximum  pitch  angle  ex- 
perienced is  -1.52°  which  is  nominal.  The  larger  negative  yaw  ex- 
cursion indicates  that  the  craft  tends  to  alter  its  course  and  turn 
its  bow  into  the  wave  front.  It  is  apparent  from  this  response  that 
the  craft  is  quite  vulnerable  to  beam  explosions. 

Should  the  craft  be  operating  at  50  knots  and  an  explosion  occur 
the  question  arises  as  to  what  evasive  action  it  should  take.  As 
a preliminary  maneuver  it  has  been  assumed  that  a reaction  time  of 
80  seconds  is  required  for  the  craft  to  either  alter  its  course 
to  another  heading  or  head  up  into  the  blast  and  kill  its  engines. 

We  have  seen  that  in  this  latter  mode  it  can  survive  the  present 
explosion.  The  question  arises  as  to  whether  an  alternative  course 
heading  is  preferable.  To  investigate  this  possibility,  two  head- 
ings of  45°  and  135°  are  investigated. 

« 

Figure  20  shows  the  respxsnse  of  the  craft  to  the  waves  environ- 
ment on  a heading  of  45°  assuming  such  a heading  is  achieved 
80  seconds  after  the  blast.  As  is  seen  little  if  any  motion 
occurs  to  the  craft  since  the  craft  is  heading  away  from  the  wave 
front  and  is  apparently  in  small,  long  period  waves  ahead  of  the 
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main  group  of  waves.  Provided  sufficient  clear  sea  is  available 
the  craft  could  outrun  the  wave  until  the  waves  had  decayed  suf- 
ficiently to  allow  a change  in  heading.  The  same  conclusion  can 
be  applied  for  a 0°  heading  or  the  following  wave  case. 

Should  the  craft  head  into  the  blast  on  a 135°  course,  an  un- 
likely situation  unless  it  was  already  on  this  course  when  the 
blast  occurred,  the  response  is  shown  in  Figure  21.  Here  it  will 
be  seen  that  the  motions  are  diverging  and  indeed,  based  on  the 
present  analysis,  the  craft  will  not  survive.  As  will  be  seen 
the  run  was  actually  terminated  before  the  motions  become  excessive. 

It  is  apparent  from  this  sample  survey  that  dependent  on  the  loca- 
tion of  the  blast  relative  to  the  craft  and  the  available  response 
time,  several  possible  scenarios  exist  for  evasive  action  subsequent 
to  a blast.  It  is  also  clear  that  relatively  moderate  yields  can 
cause  an  SES  considerable  difficulty  if  cognizance  of  the  serious- 
ness of  the  situation  is  not  realized. 
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7.0  VULNERABILITY  ANALYSIS 


7.1  Scope  of  the  Study 

In  the  present  study,  we  limit  our  analysis  to  a 2000-ton  class  SES, 
the  characteristics  of  which  have  been  defined  in  Section  6.1. 
Although  the  most  current  trend  of  the  U.  S.  Navy  interest  is  a 
3000  -ton  craft,  there  should  be  little  significant  difference  in 
performance  between  these  two  ships,  as  their  forms  and  sizes  are 
not  drastically  different.  The  design  speed  of  a 2000-ton  craft 
is  taken  to  be  80  knots.  Because  of  the  speed-drag  characteristics 
of  this  kind  of  vehicle,  the  cruising  speed  is  around  50  knots. 

This  speed  occurs  at  an  optimum  on-cushion  drag  condition  and  yield 
the  least  lift-drag  ratio  for  the  craft.  In  this  analysis,  there- 
fore we  conduct  all  the  exercises  at  the  one  craft  speed  of  50  knots, 
since  the  SES  has  another  unique  mode  of  operation  - the  hovering 
mode,  several  runs  at  this  condition  are  conducted  for  comparison 
purposes . 

The  major  parameters  to  be  varied  in  this  analysis  are  the  yield, 
stand-off  distance  and  heading.  The  effects  of  these  parameters 
in  both  deep  and  shallow  water  environments  are  considered.  In 
summary,  the  ranges  for  each  variable  investigated  are  given  in 
Table  5. 

Table  5.  Range  of  Investigation 


1 


Craft  Size 

2000  ton 

Speed 

Cruising  (50  knots) 
and  hovering  (0  knots) 

Yield  Range 

0.5  - 2.0  K-tons 

Heading 

0°  - 180° 

Stand-off 

7,500  - 20,000  ft 

Water  Depth 

Deep  ocean  and  shallow 
shelf  with  0.01  slope. 
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7.2  Deep  Water  Hazard 


In  order  to  investigate  the  craft  behavior  in  wave  environments 
of  various  yield  explosions,  the  wave  history  as  function  of  posi- 
tion and  time  corresponding  to  each  yield  device  must  first  be 
determined.  As  discussed  in  Section  4.2,  the  wave  history  for 
an  explosion  is  controlled  by  two  parameters,  the  crater  radius 
and  the  crater  height,  which  are  in  turn  controlled  by  the  charge 
depth.  It  is  known  that  better  generation  efficiency  occurs  when 

the  charge  is  placed  at  the  upper  critical  depth.  As  shown  in 

0 54 

Figure  4,  at  this  depth  the  maximum  wave  parameter  r/w  * may 

IllaX 

reach  as  high  as  18.  Nevertheless,  the  measurements  are  very  much 

S scattered,  especially  at  this  charge  depth.  In  the  present  analysis, 

0 54 

taking  a conservation  estimate,  we  assume  n r/w  ' to  be  10, 

I ^ max 

which  corresponds  to  an  average  value  for  a charge  at  the  upper 

I 

critical  depth.  This,  together  with  the  empirical  relation 

k„  = 0.29  w (Eg.  55)  determines  the  crater  radius  and  height, 

max 

The  results  for  four  different  yield  explosions  are  calculated  and 
given  in  Table  6.  With  the  crater  radius  and  height  known,  the 
wave  history  as  a function  of  position  and  time  can  be  readily 
I claculated  according  to  Eg.  52. 


Table  6.  Crater  Dimensions 


Yield  Weight 

W 

Crater  Radius 

R 

o 

Crater  Height 
'’o 

KT 

ft 

ft 

in 

o 

680 

41 

1.0 

835 

49 

1.5 

945 

54 

2.0 

1025 

58 

Four  stand-off  distances  are  considered,  they  are  7,500',  10,000', 
15,000'  and  20,000*.  The  heights  of  the  maximum  wave  in  the  lead- 
ing wave  envelope  at  these  distances  are  calculated  and  given  in 
Table  7.  The  period  and  the  phase  velocity  of  this  maximum  wave 
for  each  yield  weight  are  also  determined  and  included  in  this 
table . 

The  craft  responses  at  the  four  stand-off  positions  have  been  cal- 
culated for  each  explosion  considered.  The  craft  headings  are 
varied  from  0°  to  180°,  which  are  representative  for  all  possible 
encounter  directions  for  a craft  having  a transverse  symmetry. 

These  exercises  have  been  performed  for  the  purpose  to  identify 
that  stand-off  position  for  a particular  craft  heading  at  which 
the  craft  would  marginally  survive  the  explosion.  A sufficient 
number  of  computer  runs  have  been  performed  to  complete  the 
exercise.  From  the  results  of  these  computer  runs,  operational 
envelopes  to  define  the  region  for  safe  maneuvers  are  obtained 
and  shown  in  Figure  22.  The  craft  is  defined  unsafe  in  a given 
operating  condition  if  its  motions,  especially  pitch  and  roll, 
diverge  to  cause  large  cushion  leakage.  These  envelopes  are  plotted 
with  the  craft  headings  as  a parameter.  For  a given  heading,  an 
envelope  defines  the  limit  of  safe  stand-off  distances  as  a function 
of  the  explosive  yield.  The  operating  area  under  each  curve  pro- 
vides a means  of  identifying  the  degree  of  safety  for  the  particular 
heading.  Alternatively,  these  curves  can  be  used  to  determine  a 
safe  heading  to  take  for  a known  yield  explosion  w at  a known  stand- 
off distance  x.  For  instance,  a craft  would  operate  safely  at  any 
heading  if  the  environmental  coordinates  (x,w)  fall  under  the  + 180° 
envelope.  On  the  other  hand,  if  the  explosive  yield  is  so  large  or 
the  stand-off  distance  is  so  close  to  the  blast  that  the  coordinates 
(x,w)  are  just  under  the  + 90°  curve,  the  craft  may  only  operate 
safely  with  its  absolute  heading  angle  less  than  90°,  beyond 
which  the  craft  becomes  vulnerable. 
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Table  7.  Wave  Characteristics  at  Various 
Stand-off  Distances 


Yield 

stand-off 

Height  of 

Period  of 

Celerity  of 

Weight 

Distance 

Max.  wave 

Max . wave 

Max . wave 

K-ton 

ft 

ft 

sec 

ft/sec 

7,500 

4.64 

in 

o 

10,000 

3.47 

14.11 

72.29 

15,000 

2.32 

20,000 

1.74 

7,500 

6.73 

10,000 

5.05 

15.61 

80.02 

1.0 

15,000 

3.37 

20,000 

2.53 

7,500 

8.38 

10,000 

6.30 

16.60 

85.06 

15,000 

4.19 

20,000 

3.15 

7,500 

9.80 

7 f) 

10,000 

7.34 

17.29 

88.63 

15,000 

4.90 

20,000 

3.67 

r 


X,  STAND-OFF  DISTANCE  FROM  CENTER  OF  BURST  - FT. 


FIGURE  22  - OPERATION  ENVELOPE  AS  A FUNCTION 
OF  CRAFT  HEADINGS 
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The  results  show  also  that  the  craft  is  not  too  sensitive  to  the 
size  of  explosion  within  the  range  of  yields  considered  in  the 
present  analysis,  but  is  very  much  affected  by  the  craft  heading 
and  the  stand-off  distance.  For  instance,  the  figure  shows  that 
at  a stand-off  distance  of  20,000  ft  the  craft  may  head  in  any 
direction  without  difficulties  at  a cruising  speed  of  50  knots, 
regardless  of  whether  the  explosion  is  due  to  a 0.5  kilo- ton  or  a 
2.0  kilo-ton  device.  Similarly,  when  the  stand-off  distance  is 
7,500  ft,  the  craft  can  only  head  away  from  the  explosion  or  run 
out  from  the  waves  in  order  to  survive.  In  other  words,  the  craft 
should  avoid  any  heading  greater  than  90°  (port  or  starboard) , 
no  matter  whether  it  is  a 0.5  kilo-ton  or  a 2.0  kilo-ton  explosion. 
As  defined  previously,  a craft  heading  between  0 and  + 90°  cor- 
responds to  following  and  stern  waves  and  a heading  between  + 90° 
and  + 180°  corresponds  to  bow  and  head  waves.  It  is  unlikely  in 
any  event  that  a craft  would  deliberately  head  into  the  direction 
of  an  explosion  (between  + 90°  and  + 180°) , unless  it  had  been 
already  on  that  course  and  could  not  alter  it  before  the  v/ave  ar- 
rives. Should  there  be  sufficient  time  available,  however. 

Figure  22  definitely  provides  a useful  guidance  for  a proper 
response  under  any  given  set  of  prevailing  circumstances  defined. 

7.3  Shallow  Water  Hazard 

As  discussed  in  section  4.3,  shallow  water  waves  can  be  generated 
by  explosions  in  two  ways,  (1)  produced  by  explosions  in  deep 
water  and  transmitted  into  the  shallow  water  shelf,  and  (2)  pro- 
duced by  explosions  over  the  shallow  water  region  of  the  contin- 
ental shelf.  Since  the  yield  size  in  this  study  is  limited  to 
2.0  k-ton,the  waves  generated  by  a device  of  this  size  in  deep 
water  region  would  not  produce  significant  effects  on  the  shallow 
water  region  close  to  the  shore  as  a result  of  spreading  and  dis- 
persion across  the  long  distance  over  the  continental  shelf. 
Therefore,  only  the  second  case  is  considered  here. 
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For  the  purpose  of  calculating  the  shallov/  water  hazard,  an  ideal- 
ized ocean  bottom  topography  is  assumed  here.  The  width  of  a 
typical  continental  shelf  is  in  the  order  of  100  nautical  miles 
with  a slope  of  0.01,  and  the  water  depth  at  the  edge  of  the  con- 
tinental slope  is  therefore  about  6,000  ft.  It  is  known  that  shal- 
low water  explosions  are  not  as  efficient  as  a deep  water  explosion. 
Hence,  the  present  analysis  is  centered  only  on  the  largest  yield, 
i.e.  a 2.0k-ton  device.  Explosions  at  two  water  depths,  100  ft  and 
50  ft,  are  considered.  With  the  idealized  continental  shelf  as- 
sumed above,  the  charge  location  for  a 100  ft  deep  water  explosion 
is  approximately  10,000  ft  from  the  shoreline  and  that  for  a 50  ft 
deep  water  5,000  ft.  Assuming  that  the  effects  of  dispersion  and 
refraction  are  negligible  and  considering  simply  that  these  waves 
are  two-dimensional  and  parallel  with  the  shoreline,  the  procedures 
presented  in  Section  4.3  can  be  used  to  calculate  the  characteristics 
of  waves  generated  in  shallow  water  of  constant  depth.  When  these 
waves  propagate  toward  the  shoreline  to  even  shallower  water,  however, 
a correction  to  the  wave  height  due  to  shoaling  must  be  taken  into 
account.  If  is  the  height  of  the  waves  in  deep  water,  through 
shoaling  the  height  in  shallow  water  of  a depth  h would  be 


H = H I 

o L 


tanh  kh  ( 1 + 


2 kh 

sinh  2 kh 


where  k is  the  wave  number  which  has  been  defined  in  Section  4.2. 

The  ratio  of  H/H^  is  called  the  shoaling  factor.  Given  in  Table  8 
are  the  wave  heights  calculated  at  various  stand-off  distances  from 
the  explosion  detonated  at  two  charge  positions  on  the  continental 
shelf.  As  mentioned  in  the  foregoing,  the  wave  generation  efficiency 
in  shallow  water  is  not  as  good  as  in  deep  water;  however,  because 
of  the  bottom  slope,  the  wave  heights  at  comparable  stand-off 
distances  are  considerable  higher  due  to  the  shallow  water  shoaling 
effect  as  shown  in  Table  8. 
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As  discussed  in  Section  5,  when  waves  are  high  in  relatively  shal- 
low water,  they  can  be  depicted  as  solitary  waves.  The  primary 
parameter  controlling  the  solitary  wave  form  is  the  wave  height/ 
water  depth  ratio.  Waves  become  very  peaked  when  this  ratio  is 
large  and  when  this  ratio  reaches  a value  of  about  0.7,  the  waves 
start  to  break  and  form  a series  of  breakers,  as  is  commonly  seen 
at  a beach.  Consequently,  the  important  parameter  with  regard  to 
the  craft  dynamics  in  this  case  is  also  the  wave  height/water  depth 
ratio  rather  than  the  wave  height  itself.  A series  of  computer 
runs  to  analyze  the  craft  motions  was  performed  for  each  case  listed 
in  Table  8.  Again,  a craft  cruising  speed  of  50  knots  is  assumed. 

Craft  headings  are  varied  from  0°  to  180°  in  the  computer  runs  in 
order  to  identify  the  sensitivity  of  this  parameter  to  the  craft 
survivability.  As  expected,  for  the  cases  of  lower  wave  height/ 
water  depth  ratio  (0.14  and  0.15  in  Table  8),  the  calculated  results 
show  the  craft  is  safe  to  run  in  any  direction  with  no  catastrophic 
results.  When  the  wave  height/water  depth  ratio  reaches  0.3,  how- 
ever, the  operation  headings  are  limited  only  to  stern  and  following 
waves,  or  0 to  + 90°.  The  strategy  here  is  essentially  to  outrun 
the  waves  by  heading  away  from  the  blast.  An  additional  feasible 
operation  for  survival  in  these  cases  is  to  head  into  the  waves 
(180°  heading)  in  a hovering  mode.  This  mode  of  operation  is  especially 
useful  when  the  craft  is  very  close  to  the  shore  with  little  room  for 
maneuvering  or  alternatively  when  no  time  is  available  for  any 
other  action. 


The  above  discussion  has  assumed  that  the  craft  is  caught  between 
the  explosion  and  the  shore.  On  the  other  hand,  if  the  craft  happens 
to  be  seaward  of  the  explosion,  the  threat  becomes  much  less.  First 
of  all,  the  wave  would  be  much  smaller  in  deeper  water  for  the  same 
stand-off  distance,  and  secondly,  the  craft  has  ample  room  to  run 
from  the  waves  toward  the  ocean.  Interesting  to  note  is  that  as 
contrast  to  the  deep  water  explosion  case,  the  stand-off  distance 
is  not  the  primary  controlling  factor  for  the  craft  safety  in  the 
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shallow  water  case.  As  shown  in  Table  8,  the  waves  present  no 
threat  when  the  craft  is  2,500  ft  away  in  water  of  75  ft  deep, 
but  the  craft  becomes  vulnerable  at  7,500  ft  stand-off  only 
because  the  water  there  is  shallower  (25  ft)  and  the  wave  height/ 
water  depth  ratio  becomes  large. 

7.4  Effect  of  Heave  Attenuation 

In  the  previous  sections,  the  safe  operational  envelope  for  an 
SES  craft  in  both  deep  and  shallow  water  explosion  environment 
has  been  discussed.  It  is  noted  that  all  the  computations  pre- 
sented in  the  previous  sections  do  not  include  any  control  for 
heave  attenuation.  Whereas  it  is  not  the  intention  of  the  pres- 
ent effort  to  design  an  optimum  control  system  for  the  craft,  some 
calculations  including  a simple  control  logic  have  been  exercised 
so  as  to  demonstrate  that  the  operational  envelope  defined  pre- 
viously can  be  improved  through  heave  alleviation  control. 

Figure  22  has  indicated  that,  without  heave  alleviation  control, 
the  craft  could  not  survive  a 1 k-ton  explosion  on  the  beam  at  a 
stand-off  distance  of  7,500  ft.  Computations  have  been  performed 
for  the  same  case  to  include  a simple  control  logic  described  by 

2 

Eq.  50  with  the  control  constants  assigned  as  = - 1.34  ft  sec 
and  €2=0.  The  results  are  plotted  and  shown  in  Figure  23.  As 
seen,  the  calculation  shows  that  the  craft  would  now  remain  safe 
in  this  wave  environment.  This  exercise  demonstrates  the  importance 
of  heave  control  devices  in  SES  dynamics.  Since  no  optimization 
of  the  control  constants  has  been  performed  for  the  craft,  no 
attempt  to  improve  the  operational  envelope  through  heave  allevia- 
tion controls  has  been  conducted.  The  control  system  design  is 
considered  beyond  the  scope  of  the  present  study.  Suffice  it  to 
say  that  such  a system  improves  performance  and  greatly  enhances 
craft  maneuverability. 
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■aft  Response  to  Explosion  Waves  with  Heave  Alleviation  Control  - 
eld  » 1 KT,  stand-off  distance  = 7,500  ft,  craft  speed  = 50  knots 
■aft  heading  - 90  deg,  t/T  = 9.36  sec,  T = 80  sec 


7.5  Hovering  Mode 


i 

li 


S 

; 


The  operational  envelope  defined  in  the  previous  sections  can  be 
used  as  a guide  for  the  execution  of  proper  maneuvers  in  cases 
where  the  craft  is  caught  in  an  explosion  generated  wave  en- 
vironment. As  will  be  discussed  later,  one  of  the  prime  para- 
meters of  concern  is  the  reaction  time  between  blast  occurrence 
and  initiation  of  a maneuver.  In  the  case  where  there  is  no  suf- 
ficient time  available  for  a ship  commander  to  change  his  course 
into  a safe  heading,  he  must  immediately  take  an  alternate  measure 
to  minimize  the  threat  so  as  to  keep  his  craft  afloat.  The 
methodology  of  minimizing  the  potential  threat  is  to  set  the  craft 
into  a passive  mode  at  a condition  of  maximum  stability.  This  can 
be  achieved  by  slowing  down  the  craft  speed  into  a hovering  mode 
while  altering  its  heading  either  into  or  away  from  the  waves 
(180°  or  0°)  so  as  to  minimize  its  lateral  motions,  because  most 
seagoing  vessels  including  the  SES  have  a better  stability  longitu- 
dinally. In  the  event  that  the  craft  can  change  its  course  away 
from  the  waves  in  time,  it  should  always  try  to  outrun  the  waves 
at  all  available  speed.  The  conditions  considered  here,  however, 
refer  to  the  case  where  the  craft  may  possibly  alter  its  heading 
to  0°  or  180°  whichever  is  more  easily  achievable,  but  have  no  suf- 
ficient time  to  react  otherwise. 


As  shown  in  the  operational  envelope  presented  in  Figure  22,  the 
present  craft  would  not  survive  at  a 7,500  ft  stand-off  distance 
to  any  explosion,  should  it  happen  to  run  into  the  direction  of 
waves.  As  has  been  presented  in  Section  6.3,  Figure  18,  however, 
the  craft  is  well  behaved  in  a hovering  mode  at  this  stand-off 
distance  under  a 1 k-ton  explosion.  Similarly,  the  responses  of 
the  craft  in  a hovering  mode  to  1.5  and  2.0  kilo-ton  explosions 
are  shown  in  Figures  24  and  25.  These  figures  show  that  the  craft 
again  behaves  very  well  although  the  yields  are  considerably  larger. 
These  examples  would  therefore  indicate  that  in  many  cases  a reason- 
able tactics  for  an  SES  under  certain  conditions  is  to  head  into 
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Figure  24  Craft  Response  Under  Hovering  Mode,  yield  » 1.5  KT,  stand-off 
distance  » 7,500  ft,  craft  speed  » 0 , craft  heading  « 180  deg 


Figure  25  Craft  Response  Under  Hovering  Mode,  yield  » 2.0  KT,  stand-off 
distance  “ 7,500  ft,  craft  speed  - 0,  craft  heading  “ 180  deg. 


or  away  from  the  blast  in  a hovering  mode.  This  tactic  obviously 
presumes  that  such  a hovering  mode  is  feasible  from  a normal 
operational  standpoint. 

7.6  Reaction  Time  and  Optimum  Maneuver 

The  celerity  of  the  maximum  wave  in  the  leading  wave  group  of  an 
explosion  generated  wave  train  can  be  estimated  based  upon  the 
empirical  formula  given  in  Section  4.2,  and  the  calculated  results 
of  the  wave  celerity  for  0.5  to  2.0  kilo- ton  yield  explosions 
have  been  given  in  Table  7.  Based  upon  these  estimates,  the 
arrival  time  of  the  maximum  wave  in  the  leading  wave  group  at 
any  distance  away  from  the  center  of  blast  can  be  straightforwardly 
determined.  In  general,  however,  several  initial  disturbances, 
although  of  smaller  amplitude,  arrive  much  earlier  than  the  maximum 
wave.  A rough  estimate  indicates  that  the  approximate  arrival 
times  of  the  leading  disturbances  are  80,  120,  180,  and  240  seconds, 
respectively  for  stand-off  distances  of  7,500,  10,000,  15,000  and 
20,000  ft,  within  the  yield  weight  range  considered  in  the  present 
analysis . 

These  arrival  times  provide  a good  guidance  as  to  how  quickly 
a craft  should  react  in  order  to  avoid  undesirable  consequences. 

From  the  discussion  in  the  previous  section  it  is  also  clear  that 
the  craft  should  avoid  head  or  bow  waves  at  a stand-off  distance 
of  less  than  7,500  ft.  If  we  define  this  as  a critical  stand-off 
distance,  then  the  critical  reaction  time  is  about  80  seconds.  In 
other  words,  the  craft  must  react  within  a period  of  80  seconds  to 
adjust  to  a favorable  course  in  the  event  it  is  within  the  critical 
stand-off  distance  of  7,500  ft. 

The  cruising  speed  considered  here  is  50  knots,  or  84.45  ft/sec, 
which  is  slightly  higher  than  the  celerity  of  the  maximum  wave 
from  a 0.5  k-tonor  1.0  k-ton yield  explosion  but  slightly  lower 
than  that  from  1.5  k-ton and  2.0  k-ton yield  explosions.  Within 
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the  range  of  the  yields  considered,  the  best  course  for  action 
for  the  craft  is  to  take  a 0°  heading,  as  it  can  almost  always 
outrun  the  waves  resulted  from  explosions  of  these  magnitudes. 

In  addition,  even  if  the  craft  is  caught  by  the  waves  at  a later 
time,  the  stand-off  distance  has  increased  and  consequently  the 
waves  have  necessarily  reduced.  If  the  craft  is  in  an  undesirable 
course  at  the  time  of  attack,  the  commander  must  take  the  proper 
action  within  the  allowable  reaction  time,  which,  of  course,  will 
vary  depending  upon  the  stand-off  distance.  The  proper  action 
implied  here  is  to  change  its  course  into  a heading  within  the 
operation  envelope  as  defined  in  Figure  22.  Should  there  be  no 
sufficient  time  for  reaction,  the  best  choice  then  would  be  to  bring 
the  craft  into  a hovering  mode  and  head  into  or  away  from  the  waves 
(180°  or  0°) . 
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8.0 


CONCLUSIONS 


i 


Analytical  findings  derived  from  modeling  the  response  of  a typical 
SES  to  an  explosion-generated  wave  environment  have  been  presented. 
Based  upon  these  results,  analyses  to  illustrate  the  potential 
vulnerability  of  such  a vehicle  to  explosion-generated  waves  have 
been  obtained  and  operation  envelopes  with  respect  to  this  wave 
environment  has  been  developed.  The  operational  envelopes  developed 
provide  information  to  identify  the  required  stand-off  distances 
and  necessary  craft  headings  under  which  survivability  in  ex- 
plosions of  a charge  weight  ranging  from  0.5  to  2.0  kilo-ton  can 
be  assured.  The  results  indicate  that  the  waves  generated  by 
these  explosions  present  no  threat  to  the  craft  when  its  stand- 
off distance  is  larger  than  20,000  ft.  However,  if  the  stand-off 
distance  is  no  more  than  7,500  ft  the  craft  can  only  survive  at 
headings  between  0°  and  + 90^  (following  or  stern  waves) . 

The  operational  envelopes  are  developed  based  upon  a craft  cruising 
speed  of  50  knots.  It  has  been  shown  that  all  the  evasive  actions 
suggested  by  the  resulting  diagram  depend  very  much  upon  the  avail- 
able reaction  time.  A critical  reaction  time  has  been  established 
for  the  yield  range  considered.  For  a typical  2,000  ton  class  SES, 
this  critical  reaction  time  is  80  seconds.  In  otherwords,  the  craft 
must  be  able  to  adjust  to  a favorable  operating  condition  within 
80  seconds  after  blast  in  order  to  escape  the  hazard  at  a critical 
stand-off  distance,  defined  as  7,500  ft. 

Assuming  there  is  sufficient  time  for  the  craft  to  maneuver  before 
the  leading  waves  reach  it,  the  most  favorable  course  should  al- 
ways be  a 0°  heading  or  away  from  the  blast,  provided  that  there  is 
no  obstruction  in  that  direction.  The  primary  reason  for  this 
maneuver  is  that  in  this  direction  the  craft  may  easily  outrun 
the  waves  with  its  50  knots  crusing  speed;  secondly,  even  if 
the  craft  should  be  caught  by  waves  at  a later  time,  the  waves 
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will  be  much  less  severe  at  this  greater  stand-off  distance 
due  to  the  dispersion  and  spreading  effects.  Should  the  craft 
have  insufficient  time  to  adjust  to  a favorable  evasive  head- 
ing, the  best  strategy  for  survival  is  to  head  the  craft  into 
the  waves  and  maintain  a hovering  mode. 

When  explosions  occur  in  shallow  water  over  the  continental  shelf, 
the  waves  generated  are  different  from  that  generated  by  deep 
water  explosions  in  form  as  well  as  in  characteristics.  In 
this  analysis,  these  waves  are  represented  by  solitary  waves, 
the  characteristics  of  which  vary  with  the  height  of  the  waves 
as  well  as  the  depth  of  the  water.  Using  this  wave  representa- 
tion, the  craft  behavior  in  shallow  water  explosion  has  been 
calculated  and  analyzed.  In  contrast  to  the  craft  behavior 
in  deep  water  explosions,  the  results  show  that  the  craft 
safety  does  not  heavily  depend  upon  the  stand-off  distance. 

Within  the  yield  range  considered,  the  wave  height/water  depth 
ratio  instead  has  been  found  to  be  the  major  parameter  affecting 
the  craft  behavior  in  shallow  water  explosion  waves. 

A limited  number  of  computer  runs  to  investigate  the  effect  of 
heave  alleviation  control  on  the  craft  dynamics  has  been  conducted. 
With  a simple  control  logic  the  model  has  shown  that  the  craft 
may  reduce  motions  and  in  many  cases  may  even  assure  survival 
under  a hazardous  situation  which  may  otherwise  prove  fatal. 

The  above  summarizes  the  results  obtained  in  the  present  study. 

It  should  be  noted  that  in  the  present  analysis,  the  craft 
dimensions  and  characteristics  have  been  treated  only  in  general 
terms  in  order  to  represent  a typical  SES  and  accordingly  the 
results  presented  herein  must  be  regarded  in  this  light.  It 
is  nevertheless  worth  mentioning  that  the  model  developed  here 
includes  complete  details  to  ensure  that  the  information  on  evasive 
procedures  for  other  craft  can  be  generated  should  the  specifics 
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for  that  vehicle  be  defined.  In  particular,  the  model  has 
capability  to  simulate  non-linear  motions  of  SES  in 
six  degrees  of  freedom  in  various  wave  environments,  including 
deep  water  regular  waves  (sinusoidal  waves)  shallow  water  waves 
(solitary  waves)  and  irregular  wave  trains  (e.g.  explosion 
generated  waves) . Specific  features  include  heave  alleviation 
control,  thrust  control,  and  various  schemes  for  turning  and 
maneuvers.  Most  importantly,  the  model  is  efficient  for  time 
domain  solution  and  the  program  has  been  shown  to  be  exceedingly 
fast  on  high  speed  computers.  Typically  a 100  second  real  time 
simulation  can  be  obtained  in  19  seconds  of  computer  time  on  a 
CDC  7600  computer. 
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APPENDIX  A 


HYDRODYNAMIC  COEFFICIENTS  OF  SIDEHULL 

The  hydrodynamic  forces  and  moments  include  both  linear  and  non- 
linear contributions.  The  linear  terms  are  those  in  the  equations 
of  motion  identifiable  by  the  first  order  coefficients.  The  non- 
linear terms  in  a hydrodynamic  inviscid  flow  are  the  second  order 
terms  in  the  equations  of  motion,  arisinq  from  fluid  inertia 
couplings.  The  linear  coefficients  are  usually  classified  into 
three  general  categories:  static  (or  resistance) , rotary  and 
acceleration.  The  static  force  coefficients  are  the  rates  of 
change  of  any  force  or  moment  coefficient  with  respect  to  the 
linear  velocity  components;  the  rotary  force  coefficients  are  the 
rates  of  change  with  respect  to  the  angular  velocity  components; 
and  the  acceleration  or  virtual  inertia  coefficients  are  those 
with  respect  to  either  the  linear  or  angular  acceleration  compon- 
ents. These  coefficients  are  linear  with  respect  to  the  appropriate 
variables  within  limited  ranges. 

The  fundamental  dependence  of  any  particular  force  or  moment  on 
the  complete  dynamical  history  of  a body  can  be  written  as 


F = f[u,v,w,  p,q,r,u,v,w,p,q,r] 

I 

I 

In  a general  expansion,  there  are  altogether  72  first  order 
derivatives  or  coefficients  and  18  second  order  derivatives. 

Among  these  90  derivatives,  some  of  them  are  zero  if  the  body 
has  a plane  of  symmetry.  In  addition,  based  upon  the  slender  body 
approach  applied  in  the  analysis,  there  should  be  no  first  order 
dynamic  forces  in  the  axial  direction,  nor  should  there  be  first 
order  terms  depending  upon  the  dynaimic  variables  along  the  longi- 
tudinal axis.  In  order  to  provide  a simple  approximate  of  the 
body  surge  effect,  however,  a gross  estimate  of  the  added  inertia 


in  the  axial  direction  is  included  in  the  present  analysis ; let 
this  total  added  mass  for  surge  be  The  two-dimensional  section 

added  masses  are  defined  by  m2,  m^  and  m^  for  motions  of  sway, 
heave  and  roll,  respectively.  In  comparing  with  the  symbols 
defined  for  single  sidehull  in  Eq.  (7)  in  the  text,  the  following 
identities  are  noted 


where 


m2  (x) 
m^  (x) 
m^  (x) 
f (X) 

h (x) 


2 m (x) 

yy 


2 m^^(x) 


m2 (x)  f^  (x)  + m^ (x)  h^(x) 


vertical  moment  arm  of  the  lateral  hydro- 
dynamic  inertia  force 


horizontal  moment  arm  of  the  vertical  hydro- 
dynamic  inertia  force. 


Not  including  the  effects  due  to  the  asymmetry  of  the  sidehull 
geometry  itself,  the  non-zero  hydrodynamic  derivatives  are  listed 
in  Table  A-1.  This  table  is  arranged  with  the  dependent  variables 
(force  and  moment)  in  rows  and  the  independent  variables  (velocity 
and  acceleration  components)  in  columns,  and  the  derivatives  can 
be  read  correspondingly.  These  derivatives  are  dimensional.  In 
order  to  non-dimensionalize  these  derivatives  a reference  length 
and  speed  equal  to  the  sidehull  waterline  length  L and  ship  speed  U 
are  taken  and  the  system  of  normalization  recommended  by  ITTC  has 
been  adopted  in  the  nxamerical  model. 
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Term  DisappMrs  for  Singlo  Hull  Vessels. 


APPENDIX  B 

COMPUTER  INPUT/OUTPUT  FORMAT 
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Input  Format: 


Card 


Card 


Computer  Input  and  Output  Format 


1:  Format  (20A4) 

1)  TITLE  - Heading  card. 


i 

1 


I 

i 

! 


2:  Format  (FlO.O,  1415) 

1)  DT  - Number  of  intervals  per  wave  period. 

2)  NSTEP  - Number  of  integration  steps. 

3)  NPRNT  - Plot  every  NPRNT  point. 

4)  IP  - Debug  flag  for  component  forces  and  moments,  printed 

in  main  program. 

If  IP  = 0,  debug  not  printed. 

If  IP  0,  debug  is  printed. 

5)  IFIN  - Flag  on  inclusion  of  stabilizer. 

If  IFIN  = 0,  do  not  include  stabilizer. 

If  IFIN  ^ 0,  include  stabilizer. 

6)  IPLOT  - Flag  on  plotting. 

If  IPLOT  = 0,  call  PLOTT. 

If  IPLOT  = 1,  call  PLOTXY. 

If  IPLOT  = 2,  call  PLOTT  AND  PLOTXY. 

If  IPLOT  > 2,  do  not  plot. 

7)  IPT  - Number  of  points  to  plot  for  PLOTT. 

8)  NJET  - Number  of  jets  for  thrust  vector  control. 

9)  INT  - Flag  for  printing  cumulative  integrals  and  geometrical 

variables . 

If  INT  = 0,  do  not  print. 

If  INT  ^ 0,  print. 

10)  IBUG  - Flag  on  debug  for  subroutine  BUOY. 

If  IBUG  = 0,  do  not  print  debug. 

If  IBUG  + 0,  print  debug. 
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11)  IW  - Flag  on  wave  type. 

If  IW  = 1,  sinusoidal  wave. 

If  IW  = 2,  solitary  wave 
If  IW  = 3,  explosion  wave 

12)  IPR  - Flag  on  debug  for  subroutine  VLDOT. 

If  IPR  = 0,  do  not  print  debug. 

If  IPR  = 0,  print  debug. 

13)  ICO  - Flag  for  generating  new  derivatives  when  draft  changes 

by  more  than  ICO  feet. 

If  ICO  = 0,  do  not  change  derivatives. 

If  ICO  > 0,  ICO  equals  the  change  in  draft  required  update 
derivatives. 

Card  3:  Format  (8F10.0) 

1)  THT  - Initial  pitch  angle  of  craft  (deg) . 

2)  PHI  - Initial  roll  angle  of  craft  (deg) . 

3)  PSI  - Initial  yaw  angle  of  craft  (deg) . 

4)  Z - Heave  (set  = 0) 

5)  Cl  - Control  constant  Eq.  (50)  . 

6)  C2  - Control  constant  Eq.  (50) . 

7)  CVENT  - Minimum  percentage  of  vent  area  to  be  closed; 

(1-CVENT)  representing  the  upper  limit  of  vent  area. 


8)  DVENT  - Lower  limit  of  vent  area  in  percent  of  total  vent  area. 


Card  4 : 
1) 
2) 

3) 

4) 

5) 

6) 

7) 

8) 
9) 


Format  (8F10.0) 

AA  - Distance  from  transom  to  C.G.  (ft). 

BB  - Half  spacing  of  side  walls  (ft) . 

CC  - Side  wall  immersion  at  C.G.  (ft) . 

DD  - Distance  from  Iceel  of  craft  to  C.G.  (ft)  . 

AM  - Craft  weight  (tons) . 

DXDU  - Added  mass  coefficient  of  side  wall  in  axial  flow. 

2 

AIX  - Moment  of  inertia  of  craft  about  the  x-axis  (ton-ft-sec  ) . 

2 

AIZ  - Moment  of  inertia  of  craft  about  the  z-axis  (ton-ft-sec  ) . 

2 

AIY  - Moment  of  inertia  of  craft  about  the  y-axis  (ton-ft-sec  ) . 
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Card  5;  Format  (8F10.0) 

1)  WL  - Reference  length  of  craft  (ft) . 

2)  SP  - Approaching  speed  (knots) . 

3)  RHO  - Density  of  water  (lb.  sec^/ft^) . 

2 

4)  ANU  - Kinematic  viscosity  of  water  (ft  /sec) . 

5)  CDLL  - Drag  coefficient,  lateral  force,  lateral  motion. 

6)  CDNN  - Drag  coefficient,  normal  force,  normal  motion. 

Card  6:  Format  (8F10.0) 

1)  OMEGA  - Dihedral  angle  of  stabilizer  (deg) . 

2)  CR  - Chord  length  of  stabilizer  at  root  (ft) . 

3)  CT  - Chord  length  of  stabilizer  at  tip  (ft) . 

4)  S - Stabilizer  span  (ft) . 

Card  7:  Format  (8F10.0 

1)  CCO  - Side  wall  immersion  at  C.G.  before  turning  (ft) . 

2)  THTO  - Pitch  angle  before  turning  (deg) . 

3)  SPTURN  - Assigned  speed  at  turn  if  different  from  SP  (knots) 

4)  DFTH  - Control  for  differential  thrust  (set  = 0) . 

Card  8;  Format  (8F10.0) 

1)  XARM  - Longitudinal  distance  of  V7ater  jet  nozzle  location 

from  craft  C.G.  (ft) . 

2)  ZARM  - Vertical  distance  of  water  jet  nozzle  location  below 

craft  C.G.  (ft) . 

3)  BACE  - Vertical  location  of  the  stabilizer  attachment  below 

the  keel  line  (ft) . 


Card  9:  Format  (8F10.0) 


1)  YARM(I)  - Transverse  location  of  Ith  water  jet  nozzle  from 
craft  centerline  (ft) 

NJET  values.  Positive  starboard  side. 


Card  10:  Format  (8F10.0) 


1)  DELJET(I)  - Deflection  angle  of  nozzle  I (deg). 

NJET  values.  Positive  toward  port  side. 


Card  11: 
1) 


Format  (8F10.0) 

RMCP(I)  - Engine  power  level  delivered  to  nozzle  I. 
NJET  values. 


Card  12:  Format  (8F10.0) 

1)  ALPHA(I)  - Vertical  tilt  angle  of  nozzle  I (deg). 

NJET  values.  Positive  upward. 


Card  13:  Format  (8F10.0) 

1)  DWET  - Height  from  keel  to  wet  deck  (ft) . 

2)  WAMP  - Wave  amplitude  (ft) . 

WPER  - Wave  period  (sec) . 


3) 

4) 

5) 

6) 

7) 

8) 
9) 


BETA  - Heading  angle  (deg) 

BETA  = 0°,  following  or  overtaking  waves. 

BETA  = 180°,  head  waves. 

WDEP  - Water  depth  (ft) , 

XO  - Distance  from  center  of  explosion  to  craft  (ft) . 

RO  - Crater  radius  (ft) . 

ETAO  - Crater  height  (ft) . 

TO  - Reference  time  with  respect  to  time  of  detonation  (sec) 


Card  14; 
1) 
2) 

3) 

4) 

5) 

6) 
7) 


Format  (8P10.0) 

CDIS  - Discharge  coefficient. 

RHOWA  - Density  of  air  (lb  sec^/ft) . 

ATM  - Atmospheric  pressure  (psf ) . 

PHIO  Coefficients  for  least  square  fit  of  fan 
PHIl  characteristic  curve. 

THTB  - Bow  seal  angle  (deg) . 

THTS  - Stern  seal  angle  (deg) . 


Card  15:  Format  (1615) 

1)  NST  - Number  of  sections  along  craft  from  transom  to  bow. 


Card  16:  Format  (8F10.0) 

1)  BUBL  - Air  cushion  bubble  length  (ft) . 

2)  BUBB  - Air  cushion  bubble  width  (ft) . 

3)  WALB  - Maximum  width  of  side  wall  (ft) 

4)  DEPTH  - Depth  of  craft  (ft) . 
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Card  17:  Format  (8F10.0) 

1)  SLBOW  - Length  of  planing  boy^seal  (ft)  . 

2)  SLSTRN  - Length  of  planing  stern  seal  (ft) . 


Card  18:  Format  (8F10.0) 

1)  DRISE(I)  - Dead  rise  angle  at  station  I (deg). 

NST  values.  I = 1 at  transom,  I = NST  at  bow. 


Card  19:  Format  (8F10.0) 

1|  ENTRCE(I)  - Average  entrance  angle  at  station  I (deg). 
NST  values . 


Card  20:  Format  (8F10.0) 

1)  CHINE(I)  - Height  of  chine  above  Iceel  line  at  station  I (ft). 


Card  21:  Format  (8F10.0) 

1)  NSW (I)  - Number  of  water  lines  used  for  defining  offsets 
at  station  I . 


Card  22:  Format  (8F10.0) 

1)  XSW(I)  - Distance  from  transom  to  station  I (ft).  NST  values. 


Card  23:  Format  (8F10.0) 

1)  HSW(I)  - Height  of  bottom  profile  above  )ceel  line  at 
station  I (ft) . If  profile  below  keel  line 
HSW(I)  is  negative. 


Card  Group  24:  Format  (8F10.0) 

1)  Dl(I,J)  - Height  of  Jth  waterline  above  keel  at 
Ith  station  (ft).  NSW(I)  values  of 
Dl  for  each  I.  All  values  are  positive. 
Dl(I,l)  = 0.0.  Refer  to  Figure  A.l. 

Dl  is  input  as  follows: 

Card  1 - Did, I),  Dl  (1 , 2 ) , . . .Dl  (1 , NSW(l)). 
Card  2 - Dl(2,l),  Dl (2 , 2) , . . .Dl (2 , NSW(2)). 
Card  NST  - Dl(NST,l),  Dl (NST, 2)  , . . . 

DKNST,  NSW  (NST)). 
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Card  Group  25;  Format  (8F10.0) 


1)  W1(I,J)  - Horizontal  offset  of  the  starboard  wall, 

right  side  of  vertical  reference  plane, 
at  Ith  station  an  Jth  waterline  (ft) . 

NSW (I)  values  for  W1  for  each  I.  All 
values  are  positive.  W1(I,J)  input 
similarly  to  Dl(I,J).  Refer  to  Figure  b-1. 


Card  Group  26;  Format  (8F10.0) 


1)  W2(I,.T) 


Horizontal  offset  of  the  port  wall,  left 
side  of  vertical  reference  plane,  at  Ith 
station  and  Jth  waterline  (ft) . NSW (I) 
values  of  W2  for  each  I.  All  values  are 
positive.  W2(I,J)  input  similarly  to 
D1(I,J).  Refer  to  Figure  B.l. 


Figure  B-1: 


Dl,  Wl,  W2  for  Cross  Section  I. 
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Definition  of  Output 


1.  Input  data  are  reproduced  as  they  appear  on  data  cards, 
with  the  exception  of  Dl,  Wl,  W2  which  are  not  printed 
in  the  order  they  are  read. 

2.  Any  input  data  that  are  converted  in  the  program  are 
printed  in  new  units. 

1)  SP  (ft/sec) . 

2)  AM  (non-dimensional) . 

3)  AIX  (non-dimensional)  . 

4)  AIY  (non-dimensional) . 

5)  AIZ  (non-dimensional) 

6)  FROUDE  (non-dimensional)  - Froude  number 

3.  Craft  attitude 

1)  Draft  (ft). 

2)  Trim  (deg) . 

4.  Non-dimensional  derivatives  printed, 

5.  Stabilizer  coefficients. 

6.  Coefficients  for  ship  plus  stabilizer. 

7.  Stability  criterion  for  ship  only. 

8.  Stability  criterion  for  ship  plus  stabilizer. 

9.  Center  of  pressure  of  sidewall. 

10.  Non-dimensional  cumulative  integrals. 


DI 

- f , D dF 

DFI 

- r DF  dF 

•'pLs 

DF?.I 

- f DF^dF 

p?-.s 

DF3.V 

- [ DF-^dF 

DCI 

- f DC  dF 

Jpftc 
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DC2I 

- \ DC^'dF 

DC  31 

- 1 DC^dF 

s 

DC  FI 

- r DCF  dF 

Jp£:S 

DCF2I 

- f DCF^dF 

Jp£:S 

DC  2 FI 

- [ BC^FuF 

Jpks 

B3BI 

. BB^  \ BdF 

pSts 


where 

pS;  s 
D 
F 
C 

B 

BB 


- Iiitcgi’.'’.tion  limits  over  both  port  roid  starboard  sidewalls. 

- Draft  at  successive  stations. 

- Distance  iromC.G.  to  successive  stations. 

- Vertical  moment  arm,  at  successive  stations,  for  submerged 
portions  of  craft  (ft). 

- Beam  at  successive  stations. 

- Half  spacing  of  side  walls. 


11.  Non-dinonsional  rteonetrical  Variables  as  Function  of  Roll. 

GI(I)  - Integral  of  girder. 

SI (I)  - Integral  of  cross  sectional  area. 

SKI)  - Cross  sectional  area  at  transom. 

TDRAFCD  - Draft  at  transom. 

12.  Craft  characteristics. 

13.  Wave  characteristics. 
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14.  Table  of  output  plus  units: 


1) 

2) 

3) 

4) 

5) 

6) 

7) 

8) 
9) 

10) 

11) 

12) 

13) 

14) 

15) 

16) 

17) 

18) 


IT  - Time  (sec) . 

;U  - Craft  speed  (knots) . 

[BETA  - Sideslip  angle  (deg) . 

W - Heave  rate  (ft/sec) . 

y 

Y Location  of  craft  (craft  lengths) . 

Z - Heave  (ft) . 

PHI  - Roil  angle  (deg). 

THETA  - Pitch  angle  (deg) . 

PSI  - Yaw  angle  (deg) . 

PC  - Cushion  pressure,  (psf ) . 

QF  - Fan  flow  (ft^/sec) . 

DPDT  - Rate  of  pressure  variation  (psf /sec) . 
j DVDT  - Rate  of  cushion  volume  variation  (ft^/sec) 
I WD  - Heave  acceleration  (G's). 
i WH  - Wave  elevation  at  C.G.  of  craft  (ft). 

VOL  - Cushion  volume  (ft3) . 

‘ Al  - Vent  area  (ft^) . 


15.  Legend  for  computer  plots: 


1)  HEAVE  - Heave  (ft). 

2)  1 ROLL  - Roll  angle  (deg) . 

3)  Pitch  -Pitch  angle  (deg) . 

4)  YAW  - Yaw  angle  (deg) . 

5)  WAV  HGT  - Wave  elevation  at  C.G.  of  craft  (ft). 

6)  I PRESS/100  - Cushion  pressure  divided  by  100  (psf) 

I 

i 

1 
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INPUT  DATA 


MIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
mom  OOiPY  PUBWISBED  IpLIiQ  ■■  — 


TEST  SlCEUALl.  - EXPLDSlCn  WAVE 

OT.uSTEF,NPR\T,iP.IFif..IPLCT,IPTtNJET,INT,IEUG.Ii,*!FR,ICC 


ize.oo 

25  A 

0 I 

0 ?5 

A 0 f 

3 

0 1 

ThTtPHI tPSi.Z,Cl.C2.CVENT,CVrNT 

O.GD 

0.00 

C • C 0 

0.00 

-1.3A 

3.00 

0.00 

0.00 

AA.oe«CC«00(&P  «3XDU«AI XtA! 7,a1Y 

ISOtOOO 

AA.COO 

2. coo 

2A.00C 

2 CO  0.0 

0.000 

65000.0 

300  000  .0 

• L vSF  f RhO« 

ANUtCwLL. CON 

N 

237.500 

50.000 

1.966  . 

000012617 

1.300 

i.orc 

DPtGA.CK.CT.S 

33  .00 

10.00 

5.00 

10.00 

CCC  »T“Ti.  iSPTUnN.OFTH 

2.00 

1.30 

50.00 

0.00 

m-.>‘  ,ZkkK, 

3ACE 

13C.C: 

A. 00 

C.OO 

YARKd) 

50.00 

-50.30 

3®. 00 

-38.00 

DELJETi 1) 

c.oo 

0.30 

0.00  ■ 

0.00 

RPCF  «I  > 

1.00 

1.00 

1.00 

1.00 

ALPrAd  > 

C.OO 

C.OO 

c.oo 

0.00 

:.ET..A“r . 

.rEK.eETA.kOEF.XO.RO.ETAU.TC 

Ic  . 1*  u 

10. uO 

3D.0C 

90.00  6000.00  7500.00 

63'. 00 

A5.CC 

COIS.RhO.A 

.ATh.oHl Q.Cn 

11 .ThTB.THTS 

.70 

.002376  2117 

.0075A97.09  -121 .25 

30.00  60 

.00 

■1ST 

12 

bUBL  « oUBcf 

•AL6.CE- Th 

ZAO. 00 

66.0  0 

8. CO 

30.00 

SLeJW.SLSTKN 

20.00 

20.00 

DRISEd) 

eS.OO 

eS.OO 

85.00 

79.00 

60  .00 

A9.C3 

AA.CC 

A 3. 00 

AS. 00 

56.00 

76.00 

76.00 

ENTRCEd) 

0.00 

r.oo 

O.CO 

0.00 

0.00 

o.oc 

c.oo 

O.OC 

1.50 

6.50 

10.50 

O.OC 

ZHlNEll) 

s.oo 

5.00 

5.00 

» .00 

5.00 

5.00 

5.0  0 

5.CC 

b.OC 

6.00 

7.00 

0.00 

NS. 

A A 

A A 

A A 

A A 

3 3 3 

1 

XS. 

0.00 

25.00 

50.00 

75.0  0 

100. nr  125.00 

150.00 

175.00 

200.00 

225.00 

237.50 

250.00 

rtSN 

o.oc 

0.00 

0.00 

0.00 

O.OP 

c.oo 

0.00 

O.CO 

c.oo 

C.OO 

0.00 

20.00 

1 01 

0.000 

5.000 

10.000 

20  .000 

21 

7.000 

7.500 

6.000 

6.000 

.2 

0.000 

0.000 

0.000 

o.orr 

Z 01 

0.000 

5.000 

10.000 

20.000 

Wl 

7.000 

7.500 

6.00  0 

6.000 

W2 

0.030 

0 .000 

0.000 

0.000 

3 01 

0.000 

5.000 

10.000 

20.000 

W1 

7.000 

7.500 

6. 000 

6.000 

■ 2 

0.000 

0.000 

0.000 

0 .000 

ZSOOOO.O 


F6.00 
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SHIS  PAGE  IS  BEST  QUALITY  FEACTICABii 
roOM  COPY  fUHHlSUBD  TOP^  - — 


It 

01 

0.000 

5. "00 

10.000 

20.000 

■ 1 

6.500 

7.500 

f .000 

9.C0C 

m2 

0.000 

0.000 

0.000 

O.OCO 

5 

Cl 

0.000 

5.000 

10.000 

20.000 

■ 1 

A. 000 

7.000 

9.  000 

A. 000 

>2 

0.000 

0.000 

C.OOC 

o 

o 

Cl 

• 

o 

6 

01 

0.000 

5 .000 

10.000 

20 .000 

U1 

2.000 

6.500 

6.000 

8.000 

• 2 

0.000 

0.000 

0.000 

o.roe 

7 

01 

0.000 

5.000 

10.500 

20  .000 

kl 

.TOO 

6 .000 

8.000 

8.000 

W2 

0.000 

0.000 

O.COO 

0.000 

e 

01 

0.000 

5.000 

13.500 

20.000 

^1 

0.000 

5.500 

6.000 

O.OCO 

>'2 

0.000 

0.000 

O.OCO 

O.COO 

s 

01 

0. 000 

5.000 

20.000 

21 

c.ooc 

5.000 

8.00  0 

22 

0.000 

0 .300 

O.OCO 

10 

01 

0.000 

t .000 

20.000 

.1 

0.000 

A. 000 

6.500 

2 2 

0.300 

0.003 

0.000 

11 

01 

0.000 

s.coo 

20.000 

• 1 

0.000 

2 .000 

5.003 

W2 

0.000 

c.ooo 

0.000 

i< 

01 

0.000 

W1 

0.000 

k2 

0.000 

CCNVCRTCD 

INPUT 

SP.AM,AI)(, 

Alr.AlZ.FRPUOC 

<i5 

.lOASt-Ol 

.19I9E-C J 

.7A57t-C3 

.fl9A9E-C3 

IJHIS  PAGE  IS  BEST  QUALIK  FRACIIC^ 
UJOM  COPY  FURimSHED  10 


ORApTs  2,(10 


TRX.ls  1,00 


Jiwfr^^SiONAL  oTNlvAriVES 


^iV»',0'<^>*OYM,OtV,f>t»,OtCPrO'<U*JrOYO«,0'rftV»DtO^ 

- ‘^SJ'/iE-OS  0.  .l‘>t7e-02  -.2?74.’L-02 

Oi'-^  tOlt  ,r^Ti  tQioi.'  ,o/0^  tOiOfi 

0.  0* 

t V,  ,Ci<0f'»0K0(w CkuH,0k{)V, DAO#* 

0.  .l20t)|:-0>  -.CaOHC-OS 

).  0.  0, 


'5*  -.3U6<:C-0i  ,Mlir-OJ 


2SftaC«0(i 

•.236S£-0i 

0. 

rt  ^ 

-•'ll03t*0i 

3 H '•  < . n : 

0, 

-.'’»wo2t-0i 

0. 

u « 

1310E-02 

025SC-0^ 

,2J  7.'Jl:-nS 

0. 

0. 

-,l6llt-0j 

,2a|0t.-04 

0, 

-. //7oe-o4 

d. 

0. 

-.4103E-OJ 

.737dL-04 

0, 

-« 121  U-OJ 

,2ba\t-o  j 

0. 

ST*aILfZE«  CUCf-FfCU'.^rS 
► •,<;oeCL-02 

f I xvft* 

.SoPjC-OR 

r ( •<•^3 

F:»mVS  .2'»»‘^F-02 
Ft''NH*  -.lj^3e-02 

bHlp  »»L  jS  STA0lLr2LR  COrFFlClENlS 


w-fv* 

-.7<lSilL-ji 

r 98 

.«JOO0C**j2 

'wFav* 

.3j77U--j*4 

;iF.'iv3 

.3lyOL-*i2 

vF  ND8 

-.Idoot— j2 

STAnlLfTt  rj«  ONLY*  .6'»7:t-0‘3 

aTApILftr  CMTu-ldN  rOO  SrtlH  ofiS  ^l^a  .oOlT-OU 

I t of  p«LSi"i#r  Ai  cr.NTC'^  ■'F  g«avity*  2i*y5 


;»tc 

or 

oei 

UF2I 

OF'il 

OCl 

ocri 

DC  3 1 

Ctf  I 

otcai 

OCOF  1 

b5nl 

1 

7 • 

0. 

0. 

0, 

0* 

0. 

9. 

0. 

0. 

0. 

0. 

j 

. lOnC'OJ 

-.09wC-'>5 

..1  .or.-03 

J2<)k-03 

. lG6C-'n 

•153k-0« 

• mCF-os 

-.dOSfOa 

.jlSt-Oa 

.204k-0u 

3 

, jioC'OJ 

-.i^2C-72 

• 70 

.jyit-04 

.272''-0b 

••WlfoS 

,<»a9E  -04 

- • \ Jlv.-y4 

d 

.-■xIl-jO 

lOiC-iK’ 

.d.’ir-o; 

• • 3 O M i.  • X 

. uu<;c--«  ; 

,.i  t Pk-n<i 

.300L-0S 

-.  t 7'9^  -Oi 

• /d3c*0a 

-•Id/L-*)*! 

.o2vF-04 

tj 

.oOCL-OO 

-.377L*o3 

• 'jtotiC  •*>  > 

.S2d£*t>u 

.4<?ue-ob 

-.JOU-oi 

.a05L-Oa 

-. lO/k-04 

a /R/F-OJ 

, ; o«c-')o 

••02;c-‘>2 

•.37dL-0  < 

• oo:c-o  > 

,‘0uL»o«, 

• • 2 0 A t - 0 j 

.01 Sk-Ou 

-at  yat-ga 

,4  Wt-0  • 

7 

,7h7£-02 

•.22IC-0? 

.H77F-0: 

-.jclU-n 

• 7 or -0  3 

•cOOk-Oy 

•6S0K -05 

•.2’)ol*03 

• i 1 OC -0 4 

-.  I ‘/2t-g4 

. 1 3 

p 

••3VOt-0  < 

.t  )iC-0-. 

• 7'3yt-’*y 

. 7 1 7fc -05 

•• ly^t-oi 

.O«?ot-Oa 

- . \ «*5L-0a 

.l•)7t-03 

•> 

-..’ulc-o? 

.y  • ‘»»:«o3 

- ,3*.  t u-*>3 

,^ii7C  -.r* 

• C-.-Jt-t'A 

• 75  7!  -05 

IHHt-Oi 

.oSOF-04 

•.  1 7')L-U<( 

• 1 1 Ok-03 

17 

,<’2ot.-o2 

•.  lO‘»C«0? 

.9'*  iF-d-; 

-.3t.{  t-03 

• e/tc-f** 

• * ■'  O t • 0 !* 

• It'it  -(.jG 

-• ldvk-03 

.37'<L-0‘< 

- . 1 0 / fc -04 

. 1 l2L->i 

1 1 

,y2CL«00 

lOCC-02 

.'>*501.-0  3 

• e 

.:flJL-05 

UMk-oi 

• dO.U-Oa 

-. 1 OSc*04 

•.  I02C-0? 

.y33F-03 

•V 761-^3 

• t 30f  *‘O 

. 70-'L-0'> 

-.1  7 7k-0i 

•OOlk-ua 

• • 1 O*t-04 

alUk-Oi 

rCAL  yaki*h(.(.S 


^ )Li  < Opr. ) 

cx 

SI 

SI 

lObAF 

2-400 

,44;j2l  -gl 

. jS02f -43 

.7502F-03 

. -0  1 

l*;U5  0 

• ><•’^31  -g  1 

.20‘i  -U  - ) \ 

.0  1 7^L-''  *> 

U *400 

.33  «4i  -gl 

.2C-:  't  -0  ^ 

.54S‘)l-03 

.l7y7E-01 

• 1 * >00 

ijy*-  *0 1 

.l27'a-03 

.13. 'C-0\ 

•2%.i0 

• 1 7«ioi  -0  t 

.0  1 0-F  •V<1 

.30 

.10<7L-OI 
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APPENDIX  C 

COMPUTER  PROGRAM  LISTING 
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o n O ODD 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
I3»M  C»PY  FUKHISHEC  lODDQ  . 


PROORArt  StSWAVE<lNPUT«0UTPUT»TAPt5=lNFl;TiTAPEA=0UTPUT*TAPEl 
••1APE2> 

DIMENSION  Y<13).YPtl3) 

DIMENSION  PHI  0 (700 ),*P 1700 )«YYP ( 700) t T hTO ( 700 ) »ZO ( 700  I 
*«PSlD(700)tUAV(70b>.PCP(700) 

COKHCi.  /AbC/  ORAFT(2S>  t wLl GH T t P Ocb «RUbL * UALB vSLBOh t SL S7FN «THE TA* 
*DEPIri»SPRAYL 

COMMON  /?/  P»i,R,X,YY,Z*U«V,W,PhI,TMT,PSi 
COhMO..  /OlPV/  XuCELU»DPA6Y,D'>AGN,0FTH,IFIN,CCY 
COMMON  /FLO./  PC* OF, 00 , VDCTP » ACP 

COMMON  /IN/  AA»AlX*AIZ,A’<*fcc»CP*CF,CTR*OXOU.Fr.»G«NtT,NVAL» 

• PI *RhC,S^ ,UC.*UL.XL6*XF&,CDLL ♦CONN, FROUOC . CC* DO  * AM U* < LC D* CLD 

• *t*L*t*G*oPTORN*iPL0I*IPT*AIY*CCL*THlC 
Co«|-,CN  /PFi.T/  OT,:.'TEP*NF«NT,iF 

COhNi,.*  /IL.-.P/SX*SY,Sl'.,S:.,»AVEDC-,  AF*ODr-,'P?  YEGtSE  ALDC* 

• Sxir. DG*F  INOOfSrilFOStTC'TLDG 
CLFMOij  /IPXOI/  TrilGM.TLCO 

COM.'O  N /TVCC/  XARMt/APiUeACEfYATMC*) ,DFLJET(A) .KM  CP < A ) ♦N JET 
•«ALPhA(4) 

COKf-.ON  /.AV/  0.ET**AMP*.PCS.CEL*CAY*Te!'0*F(25>»FEU,I  - .V'LEF  .CFFSET 

• * *.LG*  ICr  fXO*  RO*ET  A(-*Tv‘ 

CCMMcN  /»0I/  PULYA';,INi.'GT..KC*’.'xr 

CONMO.*/*/  iSECT  (2E)  ,CI  (25)  fCFi  (?S)  ,0r2»«?*i»,Dr37  (?•  )*OCI  (If  > * 

• 0021(25) .CC3I (2^) .nCFI ( 2 5) ,C CF2 1 ( 2 5) «r C 2^ I ( * 5) .f  3bl ( 2 5 ) • Y£K 25 ) 

common  /f  r.LS/  C0IM,PmC'-  A,FhI  0* F P.  1 1 , A TM  AX  * AC  ♦ DL",  1 PP 

CO;;MC:v  /AYEYL/  AI*Cl*C2.Al,f  2«CF0T,CVtM*0VEI.T 

CALL  INPUT 
CALL  INFT 
INiTIALIZATlON 


C 

r 

C 


IsO.O 

SHIPDG=0. 

T01L0G=0. 

i.E  = I3 

Y(I>=U 

Y(2)=V 

Y(3)=W 

Y(4)=P 

Y(5)=3 

Y(G)=R 

Y(7)=X 

YIP.)=YY 

Y(y)=2 

Y) 10)=PHI 
Y(11)=THI 
Y( 12)=PSI 

CALCULATE  .EIGHT  OF  CRAFT  AT  INITIAL  TFIM  . I TH  NC  '.AVE 


lNi.GT=0 

CALL  EEAUAV  ( UX  t . Y * '.  Z « .K  « Vt.  iilv  * VGL  « AC*  Y*  T) 

Y(13)=VuL/».L*«3 

EUCYA..  = -WZ 

WMc=.M 

uxc=.x 

FE=eUCYAft‘OEM 
PC=(.EiG!(T-f  E)/AC  yATM 
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THIS  PAGE  IS  BEST  QUALITY  PRACTlCAjttig 
FROM  COPY  FURNISHED  10  BOC  


PCG*GE=PC-ATK 

Ab=(PhiC*PhIl*cCGAbE> /(C01S*SURT(2.* (PCGAGEI/RHOWAn 

Al  = OVEt!T*AQ 

A2=2.»Al.*(l.-CVEM> 

VCLDOT=U. 

IRWGT=1 

IN0X=0 

AI  = A<.*(1.-CVENT) 

CALL  Rl)f.GS(T*DT,NEfY»YH,lNOX) 

KNT  = 1 

TP=T*iL/i>P 
UP=U«GP/l.fa&9 
VP=-ATAN( V/UJ/OTR 
x;P=ii«SP 

l.D  = YP(3)*SP»»2/UL/G 

XP<KNT)=X 

YYP(KNT)=yY 

2P<KNT>  =Z«XL 

PHIDCKMT)=PHI/DTR 

ThTu(Kia)=THT/DTR 

PSIOtKM)=?SI/DTR 

PCP(Ai«T)=PC-ATH 

WAVfKNT  >=0* 

VDOTP=0. 

OPOT=0. 

C 

C CALCULATE  AND  PPINT  CRAFT  AND  WAVE  CH AF ACTERISTl CS 

C 

PAK=AH»6/2240.*C0.5*RHO«WL«»3» 

Pe:B  = 2.*BB 

FTHTO=THTC/OTR 

PS?=SP/l.fc69 

PBLTA=bETA/OTR 

CRAFTL=XSk(.»ST>«WL 

.PITE(G<310)  PAh«  CRAFTL«PBB«PTHTOf CCtPSP 
IF(iii.LT.3>  iIRlTECGtSOl)  F BE  TA  « W A»'P  . kP  EP  « WLG  «CEL«  CA  Y 
lF(i<..CG.3>  ^R;TE(G«302>  P BET  A « lOEP  «RL' «ET  AO  ,X0  «T0 

C 

C PRINT  OUTPUT  HEADINGS 

C 

BRITE(b«2?0) 

URlTEtb«222> 

IFdP.NE.U)  WKITECb«221) 

.RiTE(B»20D)  TF *UP , VF , wP t Y P t KNT ) , Y YP ( KNT ) , 2P  «KNT > ,PH 0 (KNT ) « 

• ThIDlK:»T),riID(K\T).PCP(K..T)  *C  F«  CP  OT  « VCOTF  , WO  * W A V ( Kf.T ) , ACP*  A I 
IFCIP.NL.O)  .RiTC(f.2n8)  SX » S Y » SK , SN t XUDE L U»OP AG Y .DR AGN * TH 1 6H 
•.TLGW»TCTL06«WAVtDG.AtR0DG»SPRYDG,SEAL0G»SKlNPGfFlND6 
C 

C INTEGRATION  BY  RUNGS 

C 

1RTRY=0 

CCXsCC 

GO  2 IsltNSTEP 

IF( INTRY.Eu.l.AhO.  TCC.NE.O)  CALL  SLCOER 
INTKY=0 

CALL  RUNGSt T«OT«NE«Y«YPtlNDX) 

U=Ytl» 

V=Yt2) 

•=Y13> 

PsYlA) 


112 


non  r>oo  ooo  no 


COPY  liistusa® 


6=YI5) 

R=Y<6) 

X=Y<7) 

YY=Y(8) 

2=Y<9) 

FHI=Y<I 

0) 

ThT  = Yd 

I) 

PSI=Y(1 

2) 

KNT=KUT 

♦1 

TP=T*.L 

/SP 

UP  = U»Sr- 

/I. 689 

VP=-ATA 

N<V/U)/OTR 

yF=k»SP 

»D=YF<3 

)*SP**2/VL/ 

XP(KNT) 

= X 

YYPiKNT 

) = VY 

ZPCKNT) 

=2*wL 

PhILCKN 

T)=Pm/DTR 

THTD«KNT>=lhT/DTR 

PSIDlKUTlrRSl/OTR 

PCP<Kt,T)=PC-*Th 

GLNLRATE  WAVE  FORK  FOR  PL0TT1I.6 

xco=vco=zco=o. 

CALL  S.AVE(XCOtYCC«ZCO,Y«T«eTA) 
WAV(KNT)=ETA 


PRINT  RESULTS 

WRITE  <6,200)  TF,UP,VP,WP,XP<  K'.T)  ,YYP(KNT)  ,ZF<KNT  ) fOhl  D < KFiT  ) , 
*ThTDlK:n)  ,PSIO(KMT),PCP(KN'T)  , F , OPOT  , VOrTF  , kO,  VA  V ( KN  T ) , ACP,  AI 
IF<1P.NE.0)  WRlTE(6,20ft>  SX , S Y , SK ,SN ,X UOELU ,DF A& Y ,DR AGN , THI Ch 
• »TLCW,  TCTLOG»WAVEDG,AERODG»SFRYDG,SE  AL06,SKlNnr,,FIN0G 

TEST  TO  SEE  IF  DERIVATIVES  NEED  TO  BE  CHANGED 

IF(ICO.LG.O)  GO  TO  2 
2TEST=ZP(KNT)*WAV<KNT> 

ZTSTrAbS(ZTEST*CC-CCX> 

IFIZTST.LT.ICO)  GO  TO  2 
INTRY=1 
CCX=CC  ♦ZTEST 
2 CONTINUE 

SELECT  EVERY  NPRNT  POINT  FOR  PLOTTING  AND  PLOT 


INP  = 0 

DO  BAS  IUK=1,KNT«NPRNT 
INP=INP«1 


ZP( INP>:ZP<IJK) 

PhID(lNP>=PHlO(lJK) 

THTO(INP)=THTD<IJK> 

PSIO(INP>=PSIO(IJK> 

UAVlINPIsVAVdJK) 

BAS  PCPilNP):  PCPIIJK>/I00. 

IPTsINP 

IF( 1PLCT.GT.2)  CALL  EXIT 
IFdPLOT.Eb.O)  CALL  PLOTT( ZP *''HT C« 
IFdPLOT.EQ.l)  CALL  PLOTXT  ( XP,TT“, 
IFdPLOT.EO.2)  CALL  PLOTT  (2P  ,’HT0» 


UAV,PHIO«PSTD«PCP, 

KPT) 

.AV,PHID»PS10,PCP, 


IPTfNCfNG) 

IFT«NC,NG> 
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lF(lPLUT.e0.2)  C*LL.PLOTXY(XF*YYP*K*iT) 

C 

C FUhHATS 

C 

20 U F&RM»T(6F7.?,AF7.i»F6.0,?Fr.,0«PF7.2*F9.0»r6.0> 

20fa  F0P.HAT((<X«  9E.ai.3> 

22  0 FCPKAT<lHl,5XtlHTt6XtlHU»3y,9HBFTA .FV,lh«.fcX,l hX»fXtlhY,fcX,  1H2 

•»9X»3HPhl..2X  fbHTHE  TA,‘.X.3hhSI,<iX  .2Hr  c»f  X*2h0F,«X»‘iHDPCT«<iX»‘iHCV0T* 
•5Xf2M.n»5,X»2HUh»eX.'nV':L*»v,  2HAI) 

"22  1 FORM  AT  ( 1 7X  « 2mSX  , 9X  , THb  Y , 9X  « ? h£F.  , bX  . SN  «bX  .(  HX  LDC  L'J  ,fcY  ,5P0P  AGY  » 
•bXfbHOR  Al,N«6X»tMThI&H.  7x»9MTLCv;/bX  »f  HT'-IlDG*  1 ’X»  FH'.AVtOOtEX  t 
•6hAEPiD(.,b  X»fcHbPRYOS,'-,X»FH$.E  ALD  0 ,5X  , A H'-^K  i '.Cb  *FX.5hFIND6) 

222  rtK'iATt5x»<*nSttb»2XtaMx\'uTi«AX,  JnDEG*lX,chFT/SEC»<iX»3h/LC»AXt;H/LC 

• »bX*2HFT.AXt3Hf>Lr,,4VtIF*UF&.A>.  3HDEG.3X,  JHt-'-»-,l»,7HFT  j/SEC»lXt 
»7HPbF/SLC*iX*7hAT3/bLC»Ax»iH  G * bx . 2 M F f, 6x, 3HF T' , 3X . 3HFT2 / ) 

300  FORPAT  nm  ♦21HCP  AFT  Cri AP. ACTL F 1 ST  I C S /‘ X , 7t<. L I th T=  , FF  . C . 5h  TOPS/ 
•5X,15nCPAFT  LEP(.Th=  ,Ffc,l,*h  F ^ . /b  y , 1 “r  CUSh  I ON  P irjTH  = ,FF  .1  ,<|H  FT. 

• /bX.13nIMTlAL  TPI  K=  .F  6 , bn  C F • /bx  ♦ 1 Ah  I M T I AL  DR  A' T = .F  7 . 3 .«H  FT. 

• /5X«  lAhl,\lTI  AL  SPEE0  = f Fb.O  ff  h K’OTS) 

301  FORPAT(//?lri  WAVE  CH  AP  A CTE  R 1 'T I CS/ 5>  * F.F;H£  A D 1 F Gr  , F b . 0 , 5H  DEG./ 
•bX.7nr,LlGHT  = .Fb.l.*f  F I . /' X , TnP  E u j r p - , p.  , j , c 
•/5X.7MLtN6Th=,Fft.l,AH  F j . / bx , 9H crLEF I T Y= , Ft . 1 , 7H  FT/SEC 

• /?  X .8r.»A  V ..C.  = .F7,4) 

3C.  FCPPATCX/rin  ‘..'A/E  CF  A-v  A C TL  P i ' T I C S/ b«  . ® r.h  t A U I :*G  = » Fb  , C . b h DEG. 
•/bX.bnl'CLr'=.FF  .1  ,4,h  F T . /bX  , 3 t-c  C = .f  7 . 1 .<th  FT. 

•/bX»bHrTA.:,Ffc.J,*r  F j . X bX , 3f X . = .F F . 1 . Ah  FT. 

• /bX.3‘-TCx,FG.l,bH  fEC.l 
STCP 

END 
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SU8R0UT1KC  INPT 
OIHCNSlOlii  TITLL(20I 

COKnCN  /ABC/  0RAFT(25>«UCIGHT«BUBB«BURL«'JALe«SLe0U«SLSTRI««THETA« 
*CiCPTH«SPRAVL 

COMMON  /B/  P»G«R«X«YY«Z«UtV.U«PHIfTHT«PSl 

COnnON  /CCC/  DRISE(23)feNTRCC(23>«CHI'JC(23>«H£PRAY(23) 

COhnOM  /OER//  XUDELUtOhAGYtORAbNtCFTHtlFI^itCCX 

CUnnON  /FCOEF/  FYMCLfFINYV*FIUYR«FIPKV«FlNKR«FlNNViFINNR 

COHHOh  /FOYL/  C« ALFA«G AHAtXF 

COMMON  /GC0MM/NSWt25)«UlC25<2f.>«U?(20«2£)«0]C2B*?£) 

COMMON  /I«i/  AAtAlX«AIZ«AH«BB,CB*CF*DTR«OXOU»FO*G*NST«NVAL« 
*PI»RHC«GP«UO«UL«XLG*XFG«CDLL«CDNN*FROUCE*CC«DD«ANUtALOO<CLO 
•tNL«NG*SPTURNt IFLOT«IPT«AIY*CCOf TnTO 
CCMMC.%  /It.DEK/  CR»CT»5>»OME6A 

COMMON  /NDD/  DYR»OYG,OYR,DYV,OY*»DYOP«DYD'!*DYOR,OVDV*OYDW« 

• 0ZF*0Zr*0ZR»02V»CZP»DZ0P.:7DC,DZDr»DZUVt0ZCItf 

* OKP,DK&,DKR,OKV,DKU«OKDP.CKCC.OKDR.CKOV.OFCU« 

• 0MP*D<*'3»DMR,DMV*DMy»DM0F  ,C^03,0M0R*0M0Vf  DMOW* 

* 0NP,0N&.0NR»0NV»0NU»DNDP.DN0'3*DNDR,DVCV«DN0W 
COMMON  /PRES/  CDI S ,RHO W A» PHI CtPhll » ATM *P»» AX , AC »DEK,I po 
COMMON  /PRNT/  DT t NSTEP f NPRNT » IP 

COMMON  /FSEAL/  TrtTBfTHTS 

common  /SCS/  HSy<25>tOELl«DEL2fM4N2 

COMMON  /TEMP/  SX,SY.SK«SN 

COMMON  /TVCC/  XARM  , ZA«>M  tB ACE  » Y AP M(  A > » CEL  JE  T<  A > tRM CF (A  ) »N  JET 
•«ALPHA( A> 

COMMON  /U/  GI(25>*SII25),SI(2S>«PH0(25)«T0FAF(25> 

COMMON  /OAV/  DkET«WAMP«WPER«CrL«CAY« IBUG*F(25>«PETA«Iy«WDCP*CFFSET 
*«ULG«ICC*XC«R0«ETAC«T0 

COMMO.\/X/  ISECT(25i«DI  <25>«CFI  125)  tDF2 1 C?f  ) »DF  31  (25)  »OCI  1 25  ) * 
•0C2H25)»DC3I(25)*0CFI (25)«DCF?I(25) ,0C2PI<?5) »fa3e I ( 25 ) « XSW ( 2? ) 

COMMON  /AYEYE/  A I »C  1 »C  2 « A1  » A 2 *0F  OT  .CVE  r.T»  0 VENT 

DEFINITION  OF  INPUT  FLAGS 

DT=NUHt)ER  OF  INTERVALS  PER  WAVE  PERIOD 
NSTEP-iNO.  CF  TIME  STEFS  TC  EXECUTE 
NPRNT=PLOT  EVERY  NFRNT  POINT 

IP-, DEBUG  FLAG  Fr'R  C^MPONE'-T  FORCES  AND  MOMENTS 

SXtSYTSNf XUDELU«ORAGY«DP ACN, THIGH, T LOW. VAVEOGt 

aercdg,spryog«sealdg,skindg,fincg 

IF  1P=0,  DONT  PRINT 
IF  IP.NE.O,  PRINT 

IFiN FLAG  CN  INCLUSION  CF  STABILIZER 

IFIN=C,DONT  INCLUDE  STABILIZER 
IFIN.NE.O,  INCLUDE  STABILIZER 

IPLOT FLAG  ON  PLOTTING 

IF  IPLOT  =0,PLOT  PLOTT 
IF  IPLOT  =1  PLOT  PLOTXY 
IF  IPLOT  =2  FLOY  FLOTT  AND  PLOTXY 
IF  IPLOT  GT  2 DONT  PLOT 

IPT NUMBER  OF  STEPS  TO  PLOT  PLOTT 

NJET NUMBER  OF  JETS  FOR  THRUST  VECTOR  CONTPOL 

INT PRINT  FLAG  FOB  CUMULATIVE  INTEGRALS  AND  GEOMETRICAL  VARIABLES 

IF  INT=0,  OONT  PRINT 
IF  INT.NE^C,  PRINT 

IBUG FLAG  ON  DEBUG  FOR  SUBROUTINE  BUOY 

IF  IBUC-rO,  00  NOT  PRINT 
IF  ISUG.WE.O«PRINT 
lu FLAG  FOR  WAVE  TYPE 
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C IF  lu=lt  SINUSOIDAL  WAVE 

C IF  IU:3»  SOLITAFV  WAVL 

C IF  1W=3«  EXPLOSION  UAVE 

C IPR— — -FLAG  ON  DEBUG  FOR  SUBROUTINE  PRESS 

C IF  IpR=0«OO  not  print 

C IF  IPR.NE.OtPRINT 

•C  ICO FLAG  FOR  GENERATING  NEW  CERIVATIVES  WHEN  DRAFT 

C CHANGES  MORE  THAN  ICO  FEET 

C IF  ICO=0«  DONT  CHANGE  DERIVATIVES 

C IF  ICO.NE.Ot  CHANGE  IN  DRAFT  PEOUIRED  TO  CHANGE  CERIVATIVES 

C 

c 


C READ  AND  WRITE  INPUT 
C. 

RCA0(S«1(|3)  <TITLE(I>«  I=lv20) 

REA0«5«101)  DTtHSTEF»NPPNTtIP*IFIN,IPLOTtIPT«NJET«INT»IBUGtI«tIPR 

• «ICO 

READ! St  100)  THTtPHltPSI tZtCl tC2tCVENTtOVENT 
READ  1 5t 100)  AAtBBtCCtDOtAMtOXOUf AIXt AI2t AIY 
READ (Ot ICO)  WLtSPtRHOt ANUtCOLLtCDNN 
REAOl&tlOO)  OHEGAtCRtCTtS 
REAO(StlOO)  CCCtTHTutSPTURNtOFTH 
REAO(5tlOO)  XAR**tZAPMtBACE 
RCA0(5t 100) ( YARHd ),Irl,NJET) 

RLA0(5t  100)  (OELJETd  ) tl=l  tN'JET) 

RCAO(5tlOO)  (RMCP(I>tI=ltNJET) 

READCStlCO)  (ALPHAd)tI  = ltNJET) 
wRITC(Gt200) 

URITE<Gt201>  <TlTLE(l)tI=lt20) 

WRlTE<6»202)OTtNSTEFtNPPNT,IP,IFINtTPLCTtIPTtNJETtINTtIBUGtIi(tIPR 

• tlCO 

WRITE<6t2C3)  THT tPhI tPS I tZ t C 1 tC2 tC VENT tDVENT 
WRITE(6t2nA) AAtBBtCCtODtAMtOXCUtAIXt  AlZt AIY 
WRITE(G«;:0S)  WLtSFtRHOt  ANUt COLL t CONN 
■RITECfatZOT)  OHEGAtCRtCTtS 
WRITE! Gt 208) CCCtTHTCtSPTURNtOFTH 
«RITE(Gt210)  XARMtZARHtBACE 
WRITECGtZll) 

WRITEtGtlOO)  (YARMd)tI  = ltNJET) 

»RITE(6t212) 

WRITE (6 1 100)  (bCLUETd )tI  = ltNJET) 

URITE(bt213) 

WRITC(btlOO)  (RMCP(I)tI=ltNJET) 

■RlTE(Gt21A) 

WRlTE(GtlOO)  (ALPHACI) ,I=ltNJCT) 

C 

C READ  AND  WRITE  INPUT  FOR  WAVE 
C 

READ (Pt 100)  OWETtWAMPtVPERtBrTAtWOCP tXCtRCtCTAOtTO 
WRlTE(fat2Rl>  OWrTtWAMPtUFERtbCTAtWOEPtXCtPt'tETAOtTO 
C 

C READ  AND  WRITE  INPUT  FOR  PRESSURE 
C 

RE  AO (St  100)  COlStRHOWAtATMtFHlOtPHII tTFTBtTHTS 
HRITE(6t2R2)C01StRMuWA  t ATM tPnl 0 tPH I ] tTHTBtThTS 
C 

C READ  AND  WRITE  INPUT  FOR  SPRAY 
C 

RCAO(Stl02)  NST 

RCAD(StlOO)  bUBLtBUBBtWALBtOEPTH 
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PC.AO(5«100> 
RiAU(b«lbC) 
RCAU(5«100> 
ReAO(‘j«l(lO> 
REAOCb. lOi) 
R[;A3(5,  IOC) 
RLAD(b<lC0> 
CiOSl  I = 1»KST 


SLbOWtSLSTnN 
iDKISClI>tI=l«NST) 
(ENTKCCd)  *I  = 1«KST) 
(CnlNE(l>«I=l«NET) 
iVSbt I ) »1=1«NST> 
(XbU(l)«l=l,NST> 


KiVb=Nbk  (1) 


bl  REAOIS.lOO)  (Dl( I« J) «J=1«NVS> 
0052  I=1«NST 
NVb^US'.l  1 > 


52  RLAO(5«100>  ( W 1 ( 1 i J> • J = I t NVS ) 
3053  i=l*KST 

NVS=NS.(1) 

53  READ(5« IOC)  (W2( l«J)«J=ltNVS) 
• f.ITHb»215)  UST 


»RITt(6*216)  F<UFL»BU6Et'JALBt  DEPTH 

.KlTE<t)*217)SLbC  .«SLSTkN 
.‘'ITE(6.21li) 

WKITElf  .100)  (DKISF(I)»lilt)«ST) 
kR!TEtb,219) 


»r:te (fc.loo)  <EMPcrti)  .i  = i,NsT) 

.KATE(b«220) 

wc  ITECO.ICO)  (C)'iKr<I),I=i»»JST> 

• M IE  (t,  221 ) 

kRITL<b.lCc)  (REK  i)«  I =1.I«5T) 
WRITE (f. 222) 

• rlTEtb.lOC  > <Xbk<i).l  = l«).bT) 

-R ITEtt,223) 

WOlTE(b.lCJC)  (HSk(I)«l=l«NST) 

005A  I = 1,I.ST 
\VS=Nb. (1) 

.KI  TC(  b.22k)  ( 1 1 (01  U.  J)  . J=1  .r.VS)  ) 
WF.]TE(6.225)  (.1(  1«J).J  = 1«)<VS) 
kRlTE(  6.220)  (.2(1.  J).  J=1.(.V5) 

59  CCl.TD.Ut 


C 

c 

c 


CONSTANTS 


NC=2C 
N(>  = 6 
G- 3^ • 2 

Pl  = 3.1'tl5927 
OTP-Pl/ieO. 
Pi*:r=V=»=X=YT=0, 
U0  = 1 . 

UsoO 


CC/vEKT  TO  RADIANS 

Tf-r  = ThT*DTR 
Phl=f ni •OTR 
PSl =PS1 ‘OTK 
DKlOAru'’tuA»OTF. 
ThTO  = Trilu.iiTR 
o£TA=clTA«0TR 
TnTc=TtiT.b»OTR 
THT j=lHTS«DTR 
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CONVERT  AND  NON  DIHENSIONALI ZE  INPUT 

SPsSP*1>68t 

SPTURN=SPTURN*1.6B9 

FKUUOE=SP/SURT(G>bL) 

UE10HT=AN*2240. 

OENOHra .5*RH0»UL**5 
aix=a;x*2240./denoh 
AIVsAlY •2240./DCNON 
AIZ=A1Z<2240./0EN0H 
AH=(yElGHT/G>/(U.b*RH0*UL**3) 

2=Z/«L 

XL6=AA/yL 

XFG=l.-XL6 

XARH=XARM/WL 

ZARH=ZARH/yL 

DO  20  1=1«NJET 

20  YARn(I>=YARH<I)/UL 
DO  21  l=ltNST 
F(l>=XSy(I>-AA 

21  XSU(1>=XSU(I>/UL 

URITE<6«227)  SP« AN«AIx«AlY«AIZtFROUOE 

CALCULATE  CAY*CEL*FtOFFSET  F0»  SUBROUTINE  SVAVE 

C0N1=4,*PI**2/G 

CON2=0.5*&/P1 

GO  TO  (41««2»*3>*1U 

41  CAY=CCNl/kPER«»2 
CEL=C0N2»UPER 
WLG=CEL«yPER 

GO  TO  44 

42  CAY=0.86b*SCRT (V AKP /VDEP) /UDEP 
CEL=O.S*SGRT(G*yDEP)*(  2.*yA'<P/yOEP) 

ULG=CEL*yPER 

OFFSET=0.5*WL6 
60  TO  44 

43  CAY^CONl/900* 

CEL=CON2*30. 

ULG=CEL*30. 

44  CONTINUE 

CALCULATE  TIME  INCREHENT 

DT=(yLG/ABSICEL-SP«COS(BETA)>>/DT 

DT=0T*SP/yL 

CALCULATE  NltN2tOELlfDEL2 

NSTI=NST>1 
DO  S 1=2«NSTI 
1SAVE=I 

DELl  = xSii<I  )>XSU{I-1> 

DELl:OELl*yL 

0EL2=XS.(I«1)-XSU(I) 

0EL2:0EL2*yL 

1FIABS11.-DEL2/OEL1).GT.0.1)  GO  TO  6 
5 CONTINUE 
b NlslSAVE 

N2:NST>ISAyE41 
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c 

C CALCULATC  «C«OCr  FOR  PRC&SUfiC 
C 

AC=^«*bb*XSU(M)*WL 

0E.K50.5*RHQ«WL*»2»SP««2 


CALCULATE  FO  AT  CC 

DO  3 I = 2«.'.ST 
F01=AoS«AA-XSW<I-l)»4L) 

F(.^=AiiS(AA-Xi>ja)*i>L> 

IF(F02.LT  .FDD  KFC=I 
3 CCMIKUE 

CALCULATE  NON  OIHENSIONAL  OE » I V ATI VE b 
IPDEP=0 

THTlPPrThTO/OTR 
WKITE(t.»2D5)  CCO.ThTOPR 

CALL  DLP  »AA,Bb,CCC»DD«THTO,PHl  ,t;ST,M  t‘'2*DCL  1 , DE  L2  , HE  . , \ ? W » XSi  » 

*Cl«*l*i»29RriO«KL) 

CALL  C.£C(AA,EP»CC^«CD»i.L9NST,THT'',KF0,rr) 

GO  To  1002 
EnTKY  sECCER 
IMINT.EC.O)  IFOEP:! 

CALL  DEK  (AA  *cB  *CCA  .ODt  THTC,rHl  ,i.E,T  ,1.1  »•  r,CCLl  .nCLP.rG.  ,!,SU  ,yE.  , 
•01,*i,*2,KH0,WL) 

CAlL  GLolAA,cb,CCX.  ,00,*L,\£T.THTi,,K'-n,eT) 

CALCULmTE  SPRAYL 

1CC2  M1=M*1 

OC-  lA  1=1, NST 
ISAV=1-1 

IFCLNTFCLdl.NE.O.O)  GO  TO  15 
1 C CiNT  1 .aU  C 

15  i,PKAYL  = (XS,(Ml)-Xi.(ISAV)  )*LL 

CALCULATE  and  FPiN'T  FIN  C CE  F F 1 C I CNT3  , S olP  PLUS  FIN  C C FFF  I C I EN  TS  , 
AND  PRUT  NON  uIMENSI-ONAL  CEFIVATIVEE 

SX=SY=SK=SN=0. 

CALL  FlN(Sy,SY  , SK  , SN  , CR  ,CT  , S,  CT'.EG  A ) 

SFYV=0YV*FINYV 

sfyk=dyr,finyr 

SFKV  = CKV*rUKV 

£FKK=UK« ♦FINKR 

SFNV=O..V*Fi:.NV 

bFr;AiCNh,Fi‘,NR 

SC  = 5YV,DNF-«CYA-A''),0.'jV 

i>CF  = CF  YV*SFNR-(  SFYF-aY)  ‘SFi-.V 

IFliPDEF.NE.O)  PETUFN 

IF(i,CEr,.;,E.0>  .K1TE<£.209)  CCX,THTlPR 
-RITE  <6,22fa) 

2511  E<  6, 22?)  DYF-,OYG,OYk,OYV,OYi  ,0 ''CF  , OYC  0 ,P  vQP,  0 YO  V,  C-YOV  , 

• 02P,D2-,D2F,DZy,D2.  ,D2D=’,?7'>E,r20R,r)2DV,P2C  U, 

• DKF.DFG,DKI,DKV,CK»i»DK!;l,CFCF.OKDR,OKOV.OKOW, 

• 0F.P,2.''.';,C'>'.t  ,c^.v,0H,',0EJ;P.0^■0F,Cy3K,0«0V»0HCW, 

• nHF.DN  J,CNF,OVV,DN>.  ,0\DP,r!NCC.PNDB,D’"0V,CNr'U 
oFITE(G,233) 
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idKITI.(6«;:34)  F INTVtFltJYF  tFINKV«FIMKRtFir.MV«FINNR 
URITL(b«?S5) 

• kiTt  (fctZiO)  SFYVtSf  YK,5FKV»SFKP«rFkV»?;FNR 
.M  TMt,.23/)  SC 

>RnC(6«2Sft>  SCF 
C 

C WRITE  CUPHiLATIVC  INTEGRALS 

C 

kRITE(fa»231>  FC 
WFITE(6t232) 

•■RITE(b«233)  ( i<Dl  (IltCF  Id)  «nF21(  I)  iPFTI  ( I)  ,CCI<  I)«PC2I(  I)  • 
•CL3U1 ) «LCF  I (1  )«DCFPI  ( 1 >,DC2FI  (T  )<B3kl  tl  >,I  = ltUST) 

C 

C CCNWERT  TO  DEGREES  A'JD  PRINT  6rCKrT'’ICtL  VAHUELFS 

C 

UOSS  I = l*‘- 

33  PHLIDiRPOIl  )/DTR 
'.kiTE  »t,23S) 

• RlTE(b«2AC)  (FhCn),CI(i)«SMI)«Sl(I>tTDFAF<I)«I  = lt;3> 

C 

C CCuYERT  TO  RADIANS 

C 

0063  i = 

6 3 PHw(  1 IsrP*"  * I ) •CTP 
C 

C FCuKATS 

C 

lOL  Format  (fho.2) 
lOi  tCF.*'AT(rit,,o,i<,i5) 

10^  E.R^^ATI  If  IS) 

1C3  f C'r.VATliOAA) 

200  Fur'ATI  ll.JtlOHJ^’PUT  OA  Ta  //) 

201  FOrM'^AT  « 1X,20AA) 

202  cckvATc  1>  ,57hDT«NSTCP*NP»NT,IP,IF!Ii»  IFLFT,IFT»KJET.IUT»IFL'G»I2tI 
•fk.ICD  /FlC. 2*121*,) 

203  F0K('.AT(lX,32tiTFT,Pi.I,Fr.l,2*Cl,C2*CVr‘;T,DVFkT  /EF1P.2) 

20A  FDr»-AT<  1 » * 3 1 f A A , cb  * C C «0D  « AF  . DX  LU  * A I X . A I 2 ♦ A 1 Y / 

•AF10.3*F10.1,F10.3*3F1G.1) 

20  5 FLkFATI  lX.23b.L.Lr,R*  r,Ai.U,CDt  L . CC  ►.'  / 3F  1 0 . 3 . FI  2 . = , 2F  I f . 3) 

207  F0k!'ATtlA*13hCF£GA*C^,CT*S  /kFlO.2) 

2C«  FOkFATl  lX*20hCCO.T«lC»SFTLR:.,L*TM  /FF10.2) 
iCf  FCKkAT(lhl,fhDKAFTi,FF.p,irx,5HT*!'’-*F6.2) 

210  FORFATI  lX*lAPXARC,7ArF*bACF  /fFlO.2) 

211  FCRNATl  IX.PHYARFd)  ) 

212  FOR), ATI  iy.*9hDELJf  T<  I ) ) 

213  FOkF-ATi  IX.TkFFCPd)  ) 

21*  FthF..T(  lX,10PALPhA(I  > ) 

clL  *w'''ATt  lX*3hNST  /IS) 

21f,  F!>«r-'AT<lx,  2CH'-i;f,L.PLtB«  WALk.CE- TH  /tFlD.P) 

217  F : I-.I- aT  I lX*lf  nSLctW  .SLSTR:.  /FF13.2) 

21F.  F0F»AT(lX,Hn3RlSE<l)  ) 

219  FCkf AT ( IX  .NhENTaCl < 1 ) ) 

220  F'jr.''AT(  IX.FnChlMll)  ) 

221  FlF^  ATI  lX.’tiNSk) 
t22  FOa,SAT(  lXt3riXSk) 

*23  F OF^AT  ( 1 X*3MhSI. ) 


21  A FOkkAT(/I*j*2X*2bDl*2X.fFll  .3/<llX*?Fil  .X)) 

225  FCFKAT(7X,2n2l»2x,FFll,7/(11X,0F11.3)) 

226  F;F''AT<7x.2M.2.2X,FFll.7/<lix,{Fn.3)) 


SHI  8 PAdE  IS  BBS!  QUALITY  FRACtlCMHI 
mM  OOrY  mtUSttSD  zpl^  ^ 


•/6G12.4> 

22b  F0RHAT(///lXt27HN0N  OIHCNSlOKlAL  DERIVATIVES  /) 

229  FOKHATClX*AAHOYR«OYO«OYP*OYVtDYU«OYDP,DYOC«DYOR,OTDV«OTOV/10E12.4/ 

* IX«AAH0  2PtOZQ«DZR«02V»OZV«D7DP.070Ci«D7DR«DZDV«D2D‘ii/inE12.4/ 

* lXtAAHOKP»OKn*DKB«OKVfOKU«OKDP«DKOC«3KOR«OKDV«OKDW/10E12.A/ 

* lX,A4HDMP*OMQ«OnR,D*«V«DMV«OnOP«DMDO<CROR«DMDV«DPOW/10E12*4/ 

* 1 X«9 AHOKP *DN0« UNR t DNV«DNU«ONDP«CNOC«DNOR« 0^0 V«D^C■ /IDE  12.4) 

231  FORMATt  1X.40HCEMER  OF  PRESSURE  AT  CERTER  OF  GRAVlTYs  .F10.2) 

232  FbRHATl  /lX«3HSECt  9X «2HDI .bx* SHOP I« 7X.4HCF2I , 7X* 4H0F31 • 
.BXt3H0Cl«7X«4K0C21.7X*4HDC31«7X*4H0CFlt6X*bHDCF2lt6X«SHDC2FI* 
*7X«4HB3BI) 

233  F0RKATI15.1XE11.3) 

234  F0RF!AT(/lX,23HSTAeiLI7ER  COEFFICIENTS 

* /7h  FINYV=»E13.4/7H  F IN YR =» E 13. 4/ 7H  F INKV= t E 13.4/ 

•7H  F1NKR  = «E13.4/7H  F INNV= . El 3.4 /7H  F I NVRs • E 1 3. 4) 

235  FORMATt  /»1X.33HSHIP  PLUS  STABILIZER  COEFFICIENTS  ) 

236  FCKHATt  6H  SFY V= . E 1 3 .4 /6H  SFYR=tEl3.*/  bh  SFKV=tC13.4/ 

«6H  SFKR=,E13.4/  6H  SFN V= » E 13 .4/6H  SFNR=,E13.4) 

237  FORMAT!  /IX.  34HSTABILITY  CRITEBION  FOR  SHIP  ONLY=  .E12.4> 

23fi  FORMATt  IX. 38HSTAB1L1TY  CRITERION  FCP  SHIP  PLUS  FIN=  .C12.4) 

239  FORHAT(/////1X.21HGEOMETRICAL  VARIABLES  /. IX. 9HR0LL (DEG)  t 
.10X.2HGI.10X.2HSI.10X.2HS1.7X.5HTORAF) 

240  FORMAT! 1X.F10.3.4G12.4) 

241  FORMAT!1X.3SMOVET«wAMP.WPER.8ETA.UOEP.XO«RO.ETAO»TO/SF10.2) 

242  FORMAT!1X.34HCDIS.RHOUA.ATM.PHIC.PHI1.THTB.''HTS/FB.2.F10.6.6FB.2) 
RETURN 

END 

vv 
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PA&E  IS  BEST  QUALITY  PRACJlfiMIit 
IBOII  COPY  FURUlSliaD  lOJiD^Q  _?*** 


SUBKOUTINt  OERIVCtT«N*YfVP) 

REAL  KCtHCtNC 

OIHEhSlON  A(b«5)*B(5>tAl(A«3>tBl<3)*VIIS)tYP(13) 

COHHON  /ABC/  OH  AFT ( 2B> »U Cl GHT tOUBP IE ( S) *THET A 
COHHON  /B/  P«a«H«XtYY«2«U«V«U«PHI«THT«PSl 
COHHOh  /OERV/  XUOELU«OHAGY«DH AGN «DFTH* IF IMtCCX 
COnnON  /FLOW/  PC«eF«GO«VOOTP«AOP 

COHNON  /IN/  AA«AlXtAI7tAH»bB*CB*CF«0TR«0XDUtF0t6tNST«NVAL« 
•PI«HH0*SP*U0tWLtXLG«XFG«CDLL4C0NN«FR0U0CtCC«0D«ANU«AL00*CLD 
•«NUtNG«SPTURN«IPLOT*lPTtAIY 
CCBHON  /INOER/  CRtCT«S*OHCGA 

COHnON  /NOD/  OYP«OYO«OYRtOYVtOYU«OYDP*DYOO*OYDR«OYOV,DYOU« 

• 0ZP«DZQ«0ZR«DZV«D7U«C20P*DZ00«D?0R«DZ0V«D70Vt 

• DKP*DKQ«OKR«DKV*OKU«DKDP«OKOQ«OKCR«OKDV«OKDW* 

• 0nPtDn0*0RR«0*'V»0HU*DK0P*DHD0*DHC(R*0*’DV«0P0W* 

• 0NP«0NQ«DNR«0NVt0NU«0*)0P*DNDQ«DN0R«0N0V«DNDW 
COHHON  /PRES/  COISrRHOUA«PhIO«PHIl «ATK«PKAX«AC*OEN 
COHHON  /PSEAL/  THTB»THTS 

COHNON  /TENP/SX«SYtSK«SNtUAVE0G«AEO00G«SPRY06«SEAL0G« 
•SKIN0G*FIND&*SHIP0G»T0TL06 
COHHON  /aAV/  0>e Tt W AHP ,UPCR t CEL « CA Y« 1 BUG *F ( 25) vBET A 
COHHON  /AYEYE/  A I *C1 *C2« A 1 1 « AI 2 « OFOT tC VCNT«OVENT 
C 

C THE  COHPONENT  FORCES  ANO  HOHENTS  GENERATED  BY  EACH 

C SUBROUTINE  ARE  INDICATED  bCLOU 

C 

C DRAG  - CROSS  FLOW  DRAG 

C AUXILY  - HYDROSTATIC  EFFECTS  DUE  TO  ROLL  AND  THEIR  INFLUENCE  ON  DRAG 
C FIN  - stabilizers 

C THRUST  - THRUST 

C LIUVEL  • LINEAR  VELOCITY 

C INERTIA  - INERTIA 

C SEANAV  • LAVES 

C DRA6V  - VERTICAL  DRAG 

C PRESS  - CUSHION  PRESSURE 

C SEALFH  - BOU  ANO  STERN  SEALS 

C 

SZsSH=TZ=THrO. 

0XPHlF=0YPHiF=02PhlF=CHPHIF=DRAGZ=0PAGH=0. 

U=Y<1) 

V=Yt2) 

L=Y(3> 

P=Y«A) 

0=Y<5) 

R=Y(6> 

XSYCT) 

Yr=YI8> 

Z=VEG) 

PHl^YdO) 

THT=Ytll) 

PS1=Y(I2> 

C 

C GENERATE  FORCES  ANO  HOHENTS 

- C 

ARUALLs2**CC/WL 

CCOLFsO.9 

COIs2>*(0.5*OYV*V*U)**2/(Pl*ARL'ALL*ECOCF)*bL/CC 
CALL  ORAG(DRAGY«DRAGK«DRAGN*P«R«V) 

IFCT.CQ.O.)  CALL  AUXILY (PHI «U«XUDCLU tONPHT F «DKPH IF ) 

1F(IF1N.NC«0)  CALL  FI N I SXt SY «SK* SN t CR « CT« S«OHC GA ) 
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IBIS  ?A&S  IS  BBSl  QUALITY  I 

mou  ooiPY  FUEausHBJ) 


CALL  THRUST fUtTHT«DFTH«TX«TVfTK*TN«SHIP06tT0TL06) 

C SET  THRUST  EQUAL  Tb  SHIP  ORAC  AT  TsO* 

IF(T.E0*0>  TX0=SHIP06-SX 
TX=TXO 

0RAGX=XUDELU-SHIP06 

CALL  SEAUAVtUX«ViV«UZ*WK«VH«UNfVOL«AOtY*T) 

CALL  0RAGV<DZ2«0n2«0K?«F,W,e,?) 

CALL  0RAGV(DZ3«0M3*0K3«FtUf0«3> 

DZsDZ24'DZ3 

0H=0n2*DH3 

DKsOK2«DK3 

CALL  PRESS(T«Y,V0L«XC«YCt2C*KC«HC«NC} 

CALL  VLOOT(T«AO*VOLDOT) 

CALL  LINVEL{FXLV«FYLV,FZLV»PKLV»FK.LV«FhLV> 

CALL  INERTIA (F XI C*F Yl C tF Z I C t FKIC »FHI C »FNIC> 

CALL  SEALFh(SLZ«SLK«SLH«Y«T) 

UZ=UZ*SLZ 

UK=UK*SLK 

UH=un«SLH 

COSTHsCCSCTHTI 

SINTH=SIN(THT) 

XaGT:UEIGHT*SINTH/DEH 

ZWGT=yEIGHT*COSTH/DEH 

C 

C CALCULATE  UOOT«VDOT«UDOT«POCT«GDCT«ROOT 

C YPtl)=UD0T»YP{2>=VD0T.YP(3)=yD0T»YPC4)=<»D0T«YP<5)=QC0T»YP(6l=RD0T 

C 

A(l«l>:An-OTDV 
Af 1<2>=-0Y0U 
A(1»3»=-DYDP 
A(l*4i=-OYDQ 
A(ltS>=-OYOR 
A1Z«1>=-020V 
Ai2«2>=AH-0ZDU 
A(2<3>=-DZ0P 
A(2«A>=-DZ00 
A(2«5)=-DZ0R 
A(3«U  = >0KDV 
A(3«2>=-0K0U 
AC3«3>=AIX-0K0P 
A(3«<t>=-0K0Q 
A<3*S>=-DK0R 
A(Atll=-OHOV 
A(A«2>=-0HDU 
A(4«3>=-0P0P 
A(A*A)=AIY-DHOO 
A(<»«S)=-0H0R 
At5«l)=-0N0W 
Ai5«2l=-DN0U 
A(5t3>=-0NDP 
A(5tA>:-0ND0 
A(5«S)sAIZ-0N0R 
C 

C eU)=FY«e(2>  =FZ*b(3):FK«BC*)rFH«BCS>sFN 
C 

FX=-AM»(0*y-R»V>*FXLV*SX*FXIC*TX*0RAGX*0XFHlF-CDI*yx-Xy6T*XC 
B(ll=-AK»CR»U-P»W>*FYLV*SY*FYlC*TY*OfiAGY*OYPHIF*WY*YC 
B(2>:-AH*(P*V-U*U)'»FZLV«SZ*FZIC*TZ*DKAGZ*nZPHlr«uZ«Z4&T«2C*0Z 
B<3)r-« AIZ-AI Y>*0»R*FKLV*SK*FKlC*TK*ORACK*DYPhlF*WK*KC*OK 
B(A>=-(AlX-AIZ>*R*F«FnLV«SH*F«IC«Tn«DRAGH'»DnPHlF«UP«KC*DH 
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i 


uuuu  ouuu 


ruKHLSHED  10  LD^Q 


BC5)=-I*1V-«IX)*P*0*FNLV«SN'»FNIC*TN«ORAGM»ONPH1F«WN«NC 
NCGsb 

CALL  C0HC)<AtNCC(6tB«l«NER«0CTI 
VPI1)=FX/CAM-DX0U) 

YP(2)sB(l) 

YP(3)=BI2} 

YP(AJsBt3> 

YP<S>=B(4> 

YPI6)sB(S» 

CALCULATE  XDOT«YOOT«ZOOT 
YP(7>=XD&T«YP(tl)=Y00T»YP<9»rZ00T 

COSPHIsCOStPHl) 

SINPHlrSIK(PHl) 

CObPSI=CUS(PSI) 

SINPS1=S1N(PSI) 

YPI7»=U«CCSTH*CCSPS1*V»«S1NTH»S1KPH1*C0SPS1-C0SPH1«SINPS1)* 
•U«<SINTH*C0S?H1*C0SPSI*SINFHI*S1NPSI) 
YP(8)=U*C0STH«SINPS1*V«(S1NTH»SINPHI«SIKPST*C0SPHI*C0SPS1>* 
•W*tSINTH»CCSPHIoSINPSI-SINPHI«COSPSII 
YP«9)=-U«SINTM*V»CCSTH*SINFHI*a«C0STH*C0SPHI 

CALCULATE  PHIDOT,THTDOT»PSIDOT 
YP(lO>=PHIDOT»YP(ll>=THTOOT»YPtl2>=PSIOOT 

AlCltl)=l« 

A1<1«2>£0. 

A1(1*3)=-SINTH 
Al(2«lt=0. 

A1(2*2>=C0SPHI 
A1(2«3>=C0STH*S1NPHI 
Al(3tl)=0« 

A1(3«2>=>S1NPH1 
A1<3«3>:C0STH*C0SPHI 
B1(1)=P 
B1(2)=Q 
B1(3)=R 
NEQ=3 

CALL  C0KB<AltNEQ«4,Bl«l*NER«DET) 

YP(lO)sBlCl) 

YP(11)=B1<2) 

YPC12)sBit3) 

YP<13)=V0LD0T/(UL«*2*SP) 

6AH=1.A 

OPDT=-GAH«PC/VOL  ‘VOLDOT 
A1=Ai*C1*YP«3>»SP«»2/VL*C2*DP0T 
IFUl.GT.AlZ)  Al  = AI2 
IFIAi.LE.All)  AlsAll 
RETURN 
END 
vw 
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IBIS  PASE  IS  BEST  QUALITY  PEACUft^WS 
inOM  OOPY  FUHNISHBD  lOKQQ 


SUBkOUTlhC  SCAUAVlbX«Ur«MZ«UK«UH«UN*VOL*AO«V«T> 

REAL  HbK«HUn«HUN 
OlHEkSlON  V(13) 

COHHOt<  /Ik/  AA«AlX«AIZ«An«BB«CB«CF*0TR«DX0U*FC«6«N$T*MVAL« 
•PI«RHO«SF,UOtUL«XL&«XF&«CDLLtCONN*FROUDE*CC(OD*ANUtALOO*CLO 
*tNC«NG«$PTURN«IFLCT«iPT«AIY 
CORHON  /SES/  HSUC25>«DELl«0EL2tNl*N2 

COnnON  /UFOR/  FWX(25>tFbV(25)»FWZ(25)«HUKC2B)«HwnC25)«HbM2S>« 
•AREA(2B)tFLEAK(25) 

COHHON  /W6T/  BUOYAN«INUGT«bHOtWXO 
COHhOh  /BSLEAK/  BLEAKtSLCAK 
00  1 I = l*»iST 

1 CALL  BUOY(I«Y«T) 

INTEGRATE  FOR  WAVE  FORCES  ANO  RORENTS 
CALL  SIRPSN(NST«Nl«0CLl«DEL2«FWXtWX) 

CALL  SIRPSN(NST«NliDCLl«DCL2«FUY*UY) 

CALL  SIRFSN(NST,N1 «0ELl«0EL2«FUZtVZ) 

CALL  SlhPSNCNST«NltDCLltOEL2«RWK*UK) 

CALL  SIKP$NINSTtNl*DELl«0EL2«RURtVR> 

CALL  SIRPSN(NST«N1«0EL1«DEL2«RWN«UN> 

OEKF  =C.5*RH0*WL**2*SP**2 

OERR=OERF«WL 

UX=UX/OERF 

yY=riY/0CRF 

bZsyZ/DCRF 

UKsoK/OERF/WL 

yR  = iiR/OERF/UL 

WNsyN/OEhF/UL 

CALL  SI RPSN (N1 tN 1« DELI « DEL  1* AREA* VOL t 
CALL  SIRPSUINltNltOELltOELltFLEAKiAO) 

BLEAK=FLEAK(N1)*0.5 

SLEAK=FLEAK(1)*0.5 

IFCIN.GT.EQ.O)  GO  TO  2 

yx=yx>wxo 

UR=aR-yRO 

2 CONTINUE 
RETURN 
ENO 


noo  non  nor>  on 


mis  PAfiE  IS  BEST  QUALITY  PHACTICABJjS 
i®OM  COPY  FURKTSHm  X0DD,Q  ' 


SUBROUTINE  SUAVE(XC«YC«ZCf Y«T«CTA«*YETA«*ZCTAt 
OIHCNSION  Y(13) 

COHHON  /IN/  AA«AIX«AIZ«An«BBtCB.CF«OTR«OYDU«FO«G«NST«NVAL« 
•PI«RHOtSF*UOtULtXLG«XFe«COLL«CONN*FROUOE*CC«00*ANUtALOO*CLO 
•(NCfNGtSPTURNtlPLOTtlPTtAIY 

COHHON  /WAV/  0UET«WAnP«UPER«CCL«CAY«IBUG«Ft25)«eETA«lU«.0CP tOFFSCT 
•«yLGtICO*XO*RO«CTAO«TO 
COHHON  /not/  bUJYAN«INy6T«UH0«UX0 
SINH(U)=(EXP(U)>eXP(-U>>/2. 

SECH(ARG)s2./(CXP<AR6>*CXP(-ARG) ) 

DATA  COOtCOl«CC2tCO3«C0A/ll.S392A65G«-5£.7671G255tl07.ie7B292t 
•-100.90B6blb« 35.230716 79/ 

HeAVE:Y(9)oUL 

PHI=Y(10» 

THT=Y<11) 

PSX=Y{12I 

SET  HEAVE»PH1»ThT.PSIs0  to  CALCULATE  WAVE  FORH  FOR  PLOTTING 
TEST=XC*YC*ZC 

IF(TEST.£Ci.O.)  HEAVEsPHI=THT=PSI=0. 

PSC=BETA-PSI 

C0ST=C0S(THT) 

TU=T*WL/SP 

UT=(TC7>*C0S{BETA)*Y(6>»SIN<6ETA»>«UL 
ARGl=*C«TAN(THT)-hEAVE/COST-YC*TAN(PHI )/COST 
ARG2=<XC«CoST*ZC*SIN(THT) )»C0S(PS0»+YC*SIN<PS0) 

AYCTAsAZETAsO. 

GO  TO  (1,2«3)*IW 

SINUSOIDAL  WAVE 

1 CTsCEL«TW 
C0Frl.-EXP(-T/3.) 

AHPW=.Anp.C0F 

ETA=-AHPv.SIN(CAY»(ARG2*UT-CT))/C0ST-ARG1 
AYETA  = -AMPV.6»CAY»SIN<FS0>»CCS(CAy*  < ARG2*UT-CT)> 

A2CTA=  AMPW»C»CAY*SIN( CAV»<  ARG2*UT-CT) ) 

RETURN 

SOLITARY  WAVE 

2 A1=CAY*«XC-0FFSET) 

ETA=WAMP.SECMIA1>«*2 
IF( in.gt.eo.o)  return 

CT=CEL*TW 

I=ABSIUT-CT>/ULG 

A1=CAY« t ARC2*UT-CT»0FFSET*I»WLG) 

ETA=UAHP»SECH(A1 »»*2/C0ST-ARGl 
RETURN 

EXPLOSION  WAVE 

3 ETA=0. 

IFdNWGT.EW.O)  RETURN 

HsiiOEP 

TW=TW*T0 

R=UT*XO 

RF=k/Tw/SQRT<G«h» 

IF(RF.GE..3)  60  TO  9 
X=1./I9.*RF**2) 
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SHIS  PAGffi  IS  BEST  i 
IBOM  COPY  FURWSHED  TOm 


GO  TO  S 
<•  KFi=kF»RF 
RF J=RF2*KF 
RF<.rRF3»RF 

X =CO‘»*F'F<i*COS«RF3*C02*RF2*C01*RF*C;,0 

5 CftY=X/H 

Or.t&A:CAY«J.GRT<G»TAr.H(X)/CAV  ) 

CtL  = OfitGA/CAY 
CT:CEL»Tk 
hK2-4'#*X 
ShK2:SIKH(hK2) 

AKC.=HK2/3hK2 
ARG3=1. «ARG 

AKf;<ir-ARG3/(ARG»<l  .-MX  2 / T At.H  ( HK?  ) J ♦ C.  . 5 • A R G7»  *2 -ARCS) 
RCK=CAY*RO 

CALL  t>ESSEH3,f<0K,bJ3) 
AfiCL=tCAY*iAt>«»KG2-*Ln-CT)>/COJ,T 

StT  ARGE  To  calculate  LAVE  FC'PF  FCR  'LCTTIf.G 

IF(TLST.Lo.C.)  A»GE:CAY*<  XC-CT*L'T) 

ET  Ar  *CTAw*F.  L'/A  ) ‘SLET  t Ar.CA  ) * - Ji*CL?.  li  - 6EJ-Ai\C'1 

RETURN 

E.'.C 
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SUBKOUTINC  BUOYdtYtT) 

C 0E.F1NIT10N  OF  FARAHE-TCBS 
REAL  MUK«nwntHUN 

OlHENSiON  JTRAN(A)*SGN(A>«DINTIA>«Y(13>  — ~ 

OIHCNSION  DFTI2StA>tB£Ant2&«4>  f A«Y(A) «AUZ(A) 

COHHON  /BEEH2/  BCM2(  25  > « BEH :(  26 ) « AP.f^S « ARMR 
COHHOM  /GEOHn/  NSV 12 S ) «U1 { 25 « 25 > «W2 < 26 *26 ) «0 I < 25 « 2S I 
COHHON  /IK/  AA«AIX«AIZ«AH«B6*CBtCF«OTF.«OXOU<FO*C4NST«NVAL« 
•Pt*RHO«SP*UO«WL«XLG*XFG«COLL«CONN*FOCUDE»CC*DDtANU*ALOD«CLO 
•«NC«NG*SPTURNtlPLOT«lPT*AlY«CCO«THTO 
COnnOK  /SL5/  HSU(26) 

COMHOK  /yAV/  0kCT«yARP«UPrR*CEL«CAY«18U6«F(25> 

COMMON  //FOR/  FUX<25)«FUY(2S>«Fy2(25)*MyKI26>*MUM<25) tMUN(26)* 
•AREA(26)«FLCAK(25> 
data  SGK/-1.*1.*-1.*1./ 

IF (l.EU.l.AND.IbUG.NE.O)  yRITE(Bt202)  AA«BB«CC *00* Y ( 1 ) « Y < T) * Y(9) 
••Y(10l«Ytll)*Yll2) 

202  FORHAK  • A A«bb *CC « 00«U tSURCE «HEA VE tPHI *THT *PS1 •/lO G1 2. A > 
FWXCI>=FyY»I)=FUZiI )=MyK<I )=MWM(I JsMUN (I>=0. 

ARLA(1)=  BEM2(l)sBEM3(I):0. 

JJ=NSyiI) 

IF(JJ.CG.l)  RETURN 
RH06=Rh0*G 
00  1 K=2*3 
OTRAUCK )=0 

DFT(I«K)sBEAM(I*K)=0. 

DO  2 JS2«JJ 
ClTOPsDl <1«J> 

01BOT=01tI«J-l> 

U1TGP=U1(I*J) 

bT=BB 

IF(K.GT.2)  UT=-yT 
Z=DD-HSy<l)-OlTOP 

H&T=CC“01TOP-HSU(I )-F< i)*TAN«TMTC) 

CALL  S>AVEtFlI>*yT*Z*Y«T«ETA«ArETA«AZCTA) 

AUr<Ki:AYETA 

A.Z(K)=A2ETA 

HCHK=MGT*ETA 

IFtHCHK.GL.O.)  GO  TO  2 

OFT(  I*K>=01T0P*hCHK 

BEAM(l*K>=WlTOP 

JTRANIK>=J 

01NT(K»=0FT( I»K»-01B0T 
IF(DlNT(K>.GT.O.tGO  TO  1 
JTRAN(K>=1 
60  TO  I 
2 CONTINUE 
JTRAN(K)=JJ 
OFT«I*KI=01TOP 
BEAH(ltK>=ylTOP 
DINT(K»=OlTOP-OlBOT 
I CONTINUE 

BEH2(I>=eCAM(I«2l 

BEM3(I}=BEAM(I*3> 

IF(DFT(I,2>*LT.0.>  DFT(I  *2):0. 

IFFOFT(I,3>.LT.O.)  DFT(I  ,5>=0. 
AREAS=0.6*bFT(I«2l*(eCAK(I,2>«Ul(I,l)) 
AREAP=G.5*0FT(J«3)*(BEAM(I*3)*yi(I*l>i 
arms=bb*o.25*(bcam(  i«2)«yi(i*n> 

ARMPs-(6B«0.26*(BLAM(I «3)*U1(I«1))> 
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SHIS  PA&E  IS  BEST  QUALITY  PRAClIgABjjB 
FROM  COPY  FURHISHED  TO  DDC  - 


A2S=D0-HSk( I)-DFTt I«2)/2. 

AZP=00-HSW(I >-0FT<I«3)/2. 

OINT(1>=OINT(2) 

0INT(4)=DINT(3> 

CALL  VULUMCd  «BBt JTR AN tOlNT tOULTtFLK* AR) 

ARCA(I>=AR 

FLCAK(I>=FLK 

RN=Y(1)*&P*UL/ANU 

ARG=(AL0&10(RN)-2.)**2 

CF=0.075/ARG*.0004 

DPO=CC-F<I)«TANtTHTO> 

AWYS=A«Y<2) •EXP(-CAY»DFT<I»2»/2. » 
Ay2S=Aw2t2)*CXP(-CAY*DFT(I«2)/2.) 
AyYP=AyYC3)»EXP(-CAY*DFTCI«3»/2.) 
Ay2P=AyZ(3) •EXP{-CAY»DFT(I»3)/2.) 
AKZS=AKZP=1. 

IFCAREAS.hE.O.)  AKZS= ARE AS/B EP2 ( I > /OFT ( I « 2) 

IFCAREAP.NE.O.)  AKZPSAREAP/BE13(I >/0FT(I«3) 

AKYS=2«4*AKZS*0 .4 

AKYP=2.4*AKZP«0.4 

AHYSsAKYS*DFT(I,2) ‘tZ 

AhZS=AKZS«BEH2» I)«*2 

AMYP=AKYP«0FT(I»3)**2 

AMZP=AKZP*BEM3(I>»«2 

FYS=RHO*(AREAS«AMYS)*AUYS 

FYP=RHO* (ARE AP*AHYP)» AyYP 

FZS=-RHO&«AREAS*RHO»< AREAS*AM2S)*AyZS 

FZP=-RHoG*AREAP*RHO»(AREAP*AMZP>»AyZP 

FXS=-CF*(t)FTJ  If2)-DP0)  •RHO«(  SP»Y«1))««2 

FXP=-CF»(CFT(I *3>-DP0) ‘RHO^CSP^Yd )) **Z 

FWXJ  I>  = FXi>*FXP 

FUY<I>=FYS*FYP 

FyZ<I)=FZS*FZP 

HyK<lk=-FYS»AZS-FYP*AZP*FZS»ARMS*F2P*ARPP 
IF(ABS(HkK(l>).LT.l.E-B)  PyK(I)=0. 

Mbhl I)=-(FZS*FZP)*F< I) 

«.N(1)=(FYS*F YP)«F(I )-«FXS«ARHS*FXP»ARHP) 
HUN(I)=0. 

RETURN 

END 


t 


IKIS  PAGEE  IS  BEST  QUALITY  PRACIICABUS 
JKOU  COPY  FUKHISHEC  TO  DDC  ^ 


SUBhOUTlNC  VOLUHCdtBBtJTRANtOINTfOUCTtFLCAKtARC#) 

C SUbROUTlNE  TO  CALCULATE  AREA  BETUEEN  CALM  UATEK  SURFACE 

C AND  WET  DECK  A^O  LEAKAGE  FOR  CROSS  SETIOK  I 

DIHEhSlON  JTRAN(A)tDINTiA) 

COHHON  /GEOHM/  NSU 125) tWl (2Bt2S) tU2C 2S«25) «01( 2S t2S> 

FLEAKsO. 

C STARBOARD  SIDEWALL 

0S=0IMT(2) 

JS=UTRA)i(2) 

IFtoS.EO*!)  60  TO  1 
JSl:US-l 

HGTS=DWCT>01(ltUSl)*DS 
GO  TO  2 

1 H6TS=DWET-0S  C 

FLEAKs-DS 

C PORT  SIDEWALL 

2 DP=0INTt3) 

JP=UTRAN(3) 

IF(UP.EQ.l)  60  TO  3 
JPlsJl—l 

H6TP=0WET“D1(I»JP1)-0P 
60  TO  A 

3 H6TP=DJET-DP  C 

FLEAK=FLEAK-DP 

4 AKEA=B8*ChGTP*H6TS) 

RETURM 

END 

vv 


IBIS  PAGE 
roOMCOP^ 


IS  BEST  QUALITY  PRACtlCAi« 

jURWSHH)  to  DDC  ^ 


SUBROUTINE.  PRCSS{T«Y«VOL«XC« YC«ZC*KC«l*CtNC> 

REAL  KC  «RC«NC 
OinCNSJON  Y(13> 

COKMON/ABCZ  ORAFT12S) tUCICHT 
COnnON  /BSLCAK/  BLCAKtSLCAK 
COHHON  /FLOW/  PC<&F«QO t VOCTP «A0P 

COMMON  /IK/  AA«AIX*AI?«AH«BetCPfCF*DTR«RXDU«FC«r.«NST«NVAL* 
*PI*RHO«SP«UOtULtXL6*XFC«CbLL«CDNN«FKOUDr«CCtOO«ANU«ALOO«CLD 
COMMON  /PRES/  COISfRHOWAtPHIC«PHIltATMtPMAX«AC*OCM«IPR 
COMMON  /WOT/  BUOYAN«INUGT«wMO«UXO 
GAMsl.A 
HEVsYtS) 

PHI  = YH0» 

THTsYIll) 

V0lCsY<13>*WL*»3 

ACPsVOL 

1 PC=PC  •VOLC«»GAM/VOL*»CAM 
Y(13)=VCL/WL«*3 
IFtPC.LT.ATM)  PC=ATM 
10  PDIFsPC-ATM 

ZARM=00-CC-HEV*UL 
AN  rAC*THT 
BTANsWL*TAN(THT) 

BT61.SBTAS-BLEAK 
IFCThT.LT.O.)  BTBLzBTAN'tSLEAK 
IFIBTSL.GF.IB.)  BTBL=16. 

IFlbTbL.LT.-lB.)  BTBL=-18. 

IFIBLEAK.GT.O.)  ZAR»=DD-0 .5* 6TBL 

IF(SLEAK.GT.0.)  ZARH=00*O.S*BTBL 

IF((BLEAK*SLEAK).NC«0.)  AN=2.*6B*BTBL 

XC=  an*fdif/oem 

YCs-PhI*AC«PDIF/DEH 

ZC=-AC«POIF/OEM 

KCs-YC»ZARM/WL 

MC=XC*ZARM/UL 

NC  = 0. 

RETURN 

END 


C 

C 


c 


c 
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THIS  PAGE  IS  BEST  QUALITY  PKACTICABU! 




SUBROUTlkC  VLOOT(Tt*OtVOLOOT> 

COHHON  /AVCrC/  «I«CltC2 
COnnON  /BSLCAK/  BLEAK.SLCAK 
COHHON  /FLOW/  PCiCiF«OOtVDOTP«AOP 
COHHON  /IN/  AAiAlXtAlZ«AH«iiB 

COHHON  /PRES/  COlStRHOUAtPHIOfPHIltATNtPHAXtACiDENtlPR 

COHHON  /PVO/  PVOL 

PHAXsATH-PHlO/PHll 

1 ASb=2.*eB*(BLCAK*SLEAK) 

AT=AI«AO*ASB 

P01F=PC-ATH 

IF(PDIF.6T.0.>  60  TO  20 
GFsPHIO 

QL:AT*CDlS*SaRT<2.*ABStPDlF>/RHOWA) 

(«0=AO*C0iS*SbRT(2.*ABS(P01F>/RH0.A) 

IFUPR.NE.O)  WR1TE(6«202)  T«PC 

202  F0RMAT(1X»*PC  LESS  THAN  ATHOSPHERIC  PRESSURE** 
•5X»»T=*»F10.2»5X**PC=»«F10.2) 

60  TO  2 

20  if(pc.lt.phax)  go  to  3 

AF=A9. 

6F=-C01S*AF*S6RT(ABS<PC-PHAX»/RH0WA1 

CiL=-AT*C0IS*SQRT(2.*P0IF/RH0UA) 

QC=-A0*C01S»S0RT (2.*P0IF/RH0UA) 

IFdPK.NE.O)  WRlTr(6«203)  T«PC 

203  F0RMAT(1X«*PC  OREATER  THAN  PH AX  * «SX* *T  = • « F 1 0 .2 «BX * *PC  = * *F 10 *2 > 
GO  TO  2 

3 OF  =PHlO*PHll*<PC-ATh) 

OL  =-AT*C0IS*SuRT(2.*IPC  -ATH)/RH0WA) 

Ob  =-A0»CDIS*StRT(2.» (PC  -ATF)/RH0WA> 

2 VOLObTsQF«OL 
VOOTPrVOLDOT 
RETURN 

END 


IBIS  PAGE  IS  B£ST  QUALl  W PRfcCtlCABI^ 
jHOiiaOiPXFUR»ISHE»IOW),Q  ^ 


SUBROUTIhC  INERTIA (F XI CtFYlCtF 2 ICtFt»lC«FNlC«FKIC> 

COHHON  /B/  Pt(<«R*X«YYt2*U«VtW*PHI,THT«FSI 
COMMON  /NOO/  OYP«OYQ«OYRfOYV*OYb«OYCP*CYDOtCYOR*OTOV«OYOWt 

• D2P«D2Q«OZR*02V«DZW«OZOP«C200«DZDRt020X*DZDw« 

• OKPtOKOfOKRtOKVfOKUtDKOPtOKOOtrwORtOKOV.DKOWt 

• OMP  «OHQ  «DMR«OMV  «OMU  *DMOP  vCoDO  tOrOR  f D»DV  «DPOW  « 

■ ONP«ONO»ONR»ONV«ONU«ONOP«ONOO,DNOR*ONDV«ONOW 

FXiCs  -DYOV«R»y-DYOP»R*P-OYDP»R«R*OYOy •■•Q*0Z00»0»0*DZ0P»P*0 
f FY1C=  -OZOW««*P-OZDO*P«0-DZDF»P«P 

FZIC=  IJYDW«V*P*UYDR»P»R*0YD?»P«P 

FMIC=  -DYOM»P*V*OYOP»R»V*(OKDP-ONORI ‘P •R*ONOP« <R ‘R-P*? > 

• ♦DZ0P»b*F.-*DMDP»Q»R 

FNlC=-020P*y*Q'»02Da*W*P«(0MDb-0K0P)*P*C«0K00*(P*P>Q*B) 

• -OYOP^V^C-ONDP'O^R 

FKIC=(DZDW-OYOV> •V •U- < 0 YOR *OnOW ) •R *W* ( OZOO«DNO V) •V*e 
•♦(DNDR-DM31()*R»U-0Y0P«P»W*DZDP«V«P-0M0P»R*P*DN0P*Q*P 
return 

END 

y¥ 


PA®  IS  BUST  QUALlIY  PRACMCASIiX 
OOPI  mmSHED  TO  IM),Q 


SU6R0UTIi«E  LINVE.L(FXLV«FYLV« 
COnnOKi  /B/  PtQ«h«X«Y«2«UtVtL 

connoM  /NOD/  dyf.dyg«oyr«oyv 
» 02P»DZ0»0ZP,D2V 

• DKP«DKU«0KR*0KV 

• OPPtOHQtONRtOPV 

» ONP«DNQ«DNRtDNV 

FxUVsO. 

FYLW=IOY¥»V*OYU*«;*OYP*P*OYC* 
F2LV=<02¥«V*D2y*U*02P»P*0ZU« 
FKLV=tOKV«V*DKW»«*OKP»P*DKO* 
FHLV=«OHW«V*Om(»n*DHP»P*DPQ» 
FNLVsCONV*V*ONW*y«ONP*P*ONG* 
RETURN 
END 


FZLV»FKLV»FHLV»FNLV) 

»PHI»THTtPSI 

tOYU»OYOP«OYOGtC'YOP«DYOV*DYDW« 
«07U«OZCP*DZCC,D20R«OZDV«DZDU* 
tDKU*OKOPf OKOC«CKOR«OKOV«OKOVf 
tOHUtDnDP«OPDG*DPOR«ONOVtOI10W« 
«nNWtONOPtDNDO«ENOR«ONDV*ONDU 

G*DYR»RJ*U 
0*D2R*R>*U 
&*OKP»R)*U 
&*DKR»R> ‘U 
0*DNR«R)*U 


!WS  PAGE  IS  BEST  QUALITY  PRACnCABBS 
JBOU  CXtfX  fUBNJSHm  jo  jjdq  _ 


SUBROUTINE  SE«LFH(SLZ*SLK«SLn«YtT> 

C SUBROUTINE  TO  CALCULATE  FORCE  ANb  NOMCNT  ON  BOW  AND  STERN  SEALS 

OIHENSXON  Y(1S) 

COHHON  /IN/  AA*AIX«AIZ«AHtBBtCB*CF«OTR«OXOUfFO*G«NSTthVALt 
*Pl*RhC«SH«UO«ilL«XLG«XFG*COLL«CONN«FROUCE*CC«DO*ANU«ALOD*CLO 

•*no»ng«spturn«iplct«ipt«aiy 

COMMON  /PSEAL/  THTBtTMTS 

COMMON  /bAV/  ObET«UAMP*WPCR«CEL«CAY«IBUG<FI2S)*6ETA 
COMMON  /PRES/  C01S«KHQUAtPHI0«PHIltATM«PMAX«ACf0EM 
COMMON  /FLOb/  PCtCF tOOt VOOTP*AOP 
PCGA6C=PC-ATH 
NI  = 11 

TE STB=AM I N1 (BETA/DTP*. 0001 t 160.) 
lF(6ETA.Eb.0..Cri.TEST6  .ECi.180.)  NI=1 
0eLSL:2.*b6/NI 
CON:  OELSL*OCGAGE 
2SL=DO-CC 
C BOb  SEAL 

BSLM=BSLK=0. 

XSL=XFG*UL 

YSL=-(BB*0.5*0ELSL) 

DO  1 I=1*NI 
YSL=YSL*DELSL 

CALL  SUAVrcXSLtYSLfZSLtY.T.ETASL.CUMX.CUMY) 

DEP=£TASL 

IFIDEP.LE.O.)  GO  TO  1 
WID=OCP/TaN(THTB) 

0EL2=-C0N*.10 

XSLA=XSL«V10/2. 

BSLM=BSLM-DEL2»XSLA 
BSLK=BSLK*DEL2*YSL 
1 CONTINUE 
C STERN  SEAL 

SSLM=SSLK=0. 

XSL=-XLG*bL 

YSL=-IB6*0.5*DELSL) 

00  2 1=1«N1 
YSL=YSL*OELSL 

CALL  SbAVC(XSL«YSLt2SL tY.T.ETASLtOUMXf OUHY) 

OEP=ETASL 

IFIOEP.LE.O.)  GO  TO  2 
bIO=DEP/TANCTHTS) 

OEL2=CON*W10 

>XSLA=XSL«blO/2. 

SSLM=SSLH-OELZ*XSLA 
SSLK=SSLKbOEL2*YSL 
2 CONTINUE 
SL2=0. 

SLM=BSLM«SSLH 

SLKsBSLKbSSLK 

SL2=SLZ/DEN 

SLM=SLM/DCM/UL 

SLKsSLK/OEM/WL 

RETURN 

END 

vv 
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PAGE  IS  BEST  QUALITY  PRACTICABIJ 
JSOM  CXiPYPURMISHED  10DD.C  ^ 


SUBROUTINE  FIN(SXtSYtSK*SNiCR*CT*S*0NC6«) 

COHNON  /ALL/  ARtCBARtC0S0(NE«SIN0«U2 
COHNON  /B/  P*Gi«RtX*YT*2*U«V«U*PHItTHT 

COMMON  /FCOEF/  F YNCL tF 1NYV*F1N Yh«F INKVf FIKKRtF INNVt FINNR 
COMMON  /FINVOR/  A« BEP « DELI tTCB AR «XFN *CCP 

COMMON  /IN/  AAtAlXtAIZt AM«EbtCB«DUMMY«CTR*OXCU«FO«6«t;ST*NVAL* 
•PltRhO«SP«UO«UL,XLCtXFG«CDLLtCDNN«FROUOEtCCtDD«ANU«ALOD*CLO 
•« NCt NG, SPTUR N,1 PLOT « 1PT<AIY<CCO<THTO 
COMMON  /LIFT/  CT A ( 30 ) < CLIFT <GAHMA< VL AN 
COMMON  /TVCC/  XARH<ZARM<BACC 
U2=U*<2 

1F(SX<NC.0.0>  GO  TO  S 
NC=11 

CLIFT=0.2*P1 

SINU=S1N(0HE6A) 

COSO=COS(OME6A) 

TCbAR=0.1 
CBAk  = (CR'»CT)/2 
A=CBAR*S 
AR=S**2/A 
XLAM=CT/CR 

GAMMA=ATAN(0.75*CR*(1.-XLAM>/S> 

BBP=BB-S<SIN0/2. 

D0P=0D*S*C0S0/2.«BACC 
XFN=-(XLG-CBAR/(2<*WL) ) 

DEL=S/tNE-I> 

OeLI=l./(NC-l) 

ETA(1>=0.0 
00  A 1=2<NE 

4 CTA(1)=ETA<I>1)*0EL 
VOKX=VORY=VORK=VORN=0< 

CALL  FINCCF  (CR<CT<S<0ME.GA) 

5 if(Thto.ge.o.o)  go  to  10 
BETA=-( V«XFG*R>/U 

CALL  VORTEX(V0KX<V0RY<V0RK<VCRN<BETA  < CR <CT<S< OMEGA) 

10  FBETA=-(V*XFN«P)<C0S0/U 
RN=U*CBAR/ANU*SP 
CF=0. 044/ (RN* •0.1666) 

CO=0.125«PI»TCBAR*»2 

0RAG=IC0'»2.*CF«(FYNCL*FBeTA)**2/IPT*AR))*A/UL**2*U2 

F1NX=-2.«0RAG 

SX=F1NX*V0RX 

SY=<F1NYV»V*FINYR«R)*U*V0RY 

SK=(F1NKV*V<FINKR*R)*U*V0RK 

SN=tFlNNV*V*FlNNR*R)«U*VORN 

RETURN 

END 

vv 
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IBIS  PASE  IS  BBSI  QUALITY  VRACTIU^ 
EROMCX>PYfURiaSHEDIODDC  — ^ 


SUBROUTINE  FINCOFtCR«CT«S«OnEG*) 
connou  /all/  ARtCBAPfCCiSOtNCtSINO 

COnnON  /FCOEF/  FYNCLtFINYV«FINYR«FINKV«FIK'KR«FIKNV«FlNNR 
COHHON  /FINVOR/  A« BBP«OELI «TCBAR «YFN, OOP 

COHNON  /IN/  AAtAIX«AIZ«An«Bb*CB«CF«OTR«OXDU*FO»G*NST«NVAL* 
*PI«RHO«SP*UOtUL 
IVORsO 

CALL  LIFTC(0.«CL«CLtCR«CT«S«unCGA«IVOR> 

FYNCLsCL 

FBC=COSO/Ua 

FINLV=CL«A/UL*»2*U0*«2»FBC 

FINLR=FINLV*XFN 

SFV=FINLV*COSO 

SFR=FlNLR*COSO 

WFV=FINLW*SINO 

VFK=F1NLR*SIN0 

FINYV=-2.»SFV 

FINYR=-2.*SFR 

FINKV=-2.«VFV«bBP/UL*2.»SFV*D0P/WL 

FINKR=-2.»VFR»6BP/'JL*2.*SFR*00P/WL 

FINNV=FINYV»XFN 

FINNR=FINYR*XFN 

RETURN 

END 

vv 


I 


i 
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IBIS  PAOE  IS  BUST  QUALITY 

JBOH  COPY  FUKiNlSiM)  XOI)Qfi  


SUbROUTINt  LIFTCIBeT*«CL«CL>!  tCRtCTtStOKECAt  IVOR) 

OIHENSIO;^  CLC(30>tCLCR(30) 

COHMON  /ALL/  AP. « CB AR t CC SC tNE  tSI K'0*U2 
CCKHOM  /U/  P«QtK«X«YY«Z«UtV«OUHtPHItTHT*PSI 
COHHON  /Fir.VOh/  A « B6P * OE L 1 1 TC3 AR  « XFN «OOP 
COPHOM  /lift/  ETAiSO). CLIFT, GAMHAtXLAM 

COMMON  /IK/  AA,AlX,AIZ,AM,kB,CB,CF,OTR ,OXOU,FO,G«NST*NVALf 
*PI,RHO,SP,UO,WL«XLG,XFG,CDLL,CONN,FROUDe,CC 
U = hiP  = 0. 

ALPHA=ALPHAR=1 . 

CCN=tl.-XLAM)/S 

C0N1=2.*PI»AR/(2.*AR) 

C0N2=A.*(1.-C0S( GAMMA >> 

Pl<i  = <i./PI 
S2=&*S 

DO  AO  Lrl,NC 
IF( IVOR.EO.O)  GO  TO  20 
IF(bETA.LQ.a.b)  CO  TO  19 
C 

C CALCULATE  SIDCUALL  PARAMETERS 

C 

SINT=SIN(THT) 

DT=CC*AA»SINT 

DF=CC-IWL-AA)*SINT 

0=0F 

IF(DT,SE,0.0)  GO  TO  10 
0=-yL*SINT 
OTsO.O 
10  02:D«*2 
C 

C CALCULATE  LIFT  ON  SIDEWALL 

C 

XLIFT=CL1FT*U2«D2»BETA 

C 

C CALCULATE  VORTEX  STRENGTH  AND  POSITION 

C 

SlNbsSIN(ATAN(BETA)> 

H=0.25»PI»D 

GRK=XLIFT/<U«H) 

YlsSINB»WL 

Y2=ETA(L)»SIN0 

Y=Y1*V2 

YPSY1-Y2 

Cl=ETA(L>»COSO 

C2=H-C1-0T 

C3sH*Cl*0T 

RlsSwRT«C2»»2*Y««2) 

R1P=SuRT<C2»«2*YP»*2> 

01=GRK/(2.*PI*R1) 

Q1P=SRK/(2.*PI«R1P> 

IF(Y.EG.O.O)  XHU1=PI*0.S 
IFCY.Eu.O.L)  GO  TO  22 
XMU1=ATANCABS(C2/Y)> 

22  U1=G1*S1N(XMU1-0MCGA> 

IF(YP.EC,0.0)  XHU1=PI*0.5 
IF(YP.EG.0.b > GO  TO  23 
XMU1=ATAN(ABS(C2/VP)) 

25  WlP:blP*SIMXKUl-OMEGA) 

C 

C SIOEaASH  CALCULATION  FOR  IMAGE  VORTEX 
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R2=SidRT(C3**2*Y**2> 

R2P  = S&RT(C3»»2*Vf'»»2» 

02=  6RK/i2.*Pl*R2) 

02P=GRK/(2.*PI*R2P) 

IFtY.EQ.O.O)  XHU2=PI*0.5 
IFIY.CQ.O.O)  60  TO  11 
XKU2  = AT«r»(ABS<C3/Y>) 

11  U2=C2*S1N(XHU2«0MEGA) 

IPIYP.EO.O.O)  XMU2=PI»0.5 
IF(YP.EU.C.O)  GO  TO  12 
XHU2=ATAN(ABS(C3/YP)> 

12  a2P  = vi2P*Sll«(XHU2*OI*EGA) 

U=>1«W2 

UP=b1P«W2P 

19  ALPHA=-UP/U 

ALPHAR=-U/U  y 

CALCULATE  FORCE  OK  FINS 

20  CETA:CR-CR*ETA(L)*CON 
CL0R=C0K1*ALPHAR 
CL0=C0K1*ALPHA 

CCK3=0,5»ICETA/CBAR*PI ASSORT ( 1 .-ET A( L 2/S2 )-< 1 .-ETA ( L ) /S) *C0N2 > 
CLCR (L>=CCN3*CL0R 
CLC(L)=C0N3*CL0 
40  CONTINUE 

CALL  SIKPSMKE.KEtDELI  t DELI « CLC « CL > 

CALL  SinPSKCNEfNEtOELi  .DEL  I < CLCR « CLP ) 

RETURN 

END 
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fHlS  PA®  IS  BEST  QUALITY  PRACIlCAMji 
IBOMOOPYPURWISHEDTOBDC  — 

SUBROUT  INC  *UX1LY(PHI,U»XUDELU»DMF'HIF.DKPH1F) 

COPKOU  /IN/  AA«iIX«AIZ«AK«bb«CB«DUK»Y«DTOfCXOU«FO«G*NST«NVAL« 
•PIfRHOt SPtUOtHLtXLGtXF  u«CDLL « CONN « FRCU CC  tCC«00«ANU 
COnnON  /U/  GI(2‘;)«Sl(25)*Sl<25)«PH0(aS)fTCRAF(25l 
COHKON  /kALL/  VOLO « DRA Gn«DEL OR 6 
Y0«X0«X1»X2»Y1»Y2)=Y1*(X0-X1)»( V2-Y1)/(X2-X1) 
CQ(OTRA)=2./(SP/SQRT(G»DTPA) )«»2 
NVAL=5 

IF(U.NE.l)  GO  TO  10 

K0=NVAL/2*1 

UO=l. 

CCN=SP*bL/ANU 

RN=UO*CGN 

ARGr (mLOGIO (RN)-2. )**2 

CFO=0.075/ARG*O.OOOA 

RN=U*CON 

ARG=< AL0G10lRN)-2.)*»2 

CF=b.075/ARG«.000A 

SiiAO=Gl(KC) 

SBACsSlCKO) 

VOLO=SI <K0> 

TORAFO=TDRAF(KO)*WL 

Cb0=0.0 

IFCSBAO.LE.O.O)  GO  TO  9 

CFb=CFO*SUAO/SBAO 

C60=0.029/SQRT(CFB> 

CFR=Ci(T0RAF0) 

IFICFR.LT.CBO)  CB0=CFR 
9 DRAG0=(CF0*SUA0*CBQ*SBA0)*U0**2 

10  00  1 1=2«NVAL 
K=I 

IF(PHI.GE,PHO(n.AN'O.PHI.LT.PHO«I-l»  ) GO  TC  2 

1 CONTINUE 

2 SUAK=YO<PHI,PHO<K) ,PH0«K-1),GI(K),GI<K-1)) 

SBAK=YO (Phi ,Phfc<K) ,PHC(K-1) t SI (K) »<1 (K-1 J ) 

VOLR  = YO<PHI ,PHO<K) ,FHC ( K-1 ) * SI ( K ) , S I ( K- 1 ) ) 
TURAFR=Y0(PHI»PH0(K),PH0(K-1 ),TOPAF(K ),TORAF (K-1))*UL 
CBR^O.O 

IF(SoAR.LE.O.O>  GO  TO  11 
CFft  = CF  •S.'AR/SBAR 
CbK=0.029/SiiRTtCFB) 

CFR=CQ(TORAFR) 

IF(CFK.LT.CBR)  CBR=CFR 
PHIMs-PHi 

11  00  3 I=2tNVAL 
K = I 

IF(PHIM.GE.PHO(I).ANO.PH1H.LT.FHO<1-1) > GC  TO  ♦ 

3 CONTINUE 

<1  SkAL  = YO  (PHIH  «PhC  (K  ) ,PHC(K-1)  t&I  (K)  «GI(K-1)) 

SbAL=YO(PHIh»PHC (K ) ,PhO(K-l)tSl(Kl,Sl(K-l)) 
VOLL=YO(PhIM,PhC(K),PHO(K-l) »SI (X) ,SI(K-1)) 
TDhAFL=YO(PHlM,PHC(K)«PHO{K-l)«TORAF(K),TORAF(K-n)*WL 
CbL=0.0 

IF(SbAL.LE.O.O)  GO  TO  12 
CFb=CF  *SbAL/SBAL 
CFL=^.029/SQRT(CFB) 

CFR=Ca(TORAFL) 
lF(CFR,LT.CbL)  CBL=CFR 

12  CONTINUE 
U2=U*U 
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SUBROUTINE  THRUSTt U«THT tOFTH ,TX tTY tTK«TN«SHIPOG« TOTLOG) 
OinCNSlON  0ELJ(<l)«0P(<i)«TUET(4) 

COMKON  /IN/  AAtAlX«Al7,AH,be«CBtCFfOTR,DXDU«FO«r,«NST«NV*L« 
•PI tRHO«SP*UO«WL*XLGtXFG«COLL tCONNtFROUOEtCCtOOtANUt ALOOtCLD 
•♦NC»N6»SPTURN*IPL0T»IPT»AI Y*CCO»THTP 
COHnON  /THRST/  THIGH*TL0U 

COnnON  /TVCC/  XARN«7ARNtBACttYARnCA>tOELJET(A)«RKCP(A>«NJeT 
•«ALPHAI4> 

OELT(XX)=XX 

DELHI YY) =0.01 334«YY«»2 ♦0.2667* ABSIYY I 
FHIP(SS>=16.6*(SS/1.6B9)**2-190.*(SS/1.6BB)«528000. 
06HOn(UUl=WU/1.689*(3900.-350.* (9.-TC0t4)> 

RKIPISSls  2.4*( SS/1.68  9>  **2- 1 0 .* ( SS/ 1 . 689 1 *820 00 . 

TCUN3=0. 

TC0N4=RKCP(l>*RMCPI2)*RMCP(3)*RHCPt4» 

IFIU.hE.l.)  60  TO  1 

CALL  RESOLUISP.CCO.THTOtSHIPDG.TOTLOG) 

THHEANrTOTLDG 

IF(CC.NE.CCO)  CALL  RESOLD ( SP « CC • TH T« OUHHY « OUHH Y) 

V=SP 

THHIP=FHIP(V) 

COFF=.5»RHO«UL»*2»SP»*2 
CCNSTl=100000*/COFr 
CONST2=60000./COFF 
THHIPO=THHIP/COFF 
ThMARG=TCCN3/C0FF 
ThC0NT  = TH*llP0-THMAR6 
THHCP=THCONT 
ThREVS=RNIP( V)/CCFF 
ThTUKN=THHEAN 
IF(SPTURn.EQ.SP)  GO  TO  3 
CALL  RESCLDtSPTURN»CC.THT»OUMMY»THTURN) 
THH1P0=FHIPCSPTURN)/C0FF 
THCONT=ThHIPO-ThHARG 
3 IFIThTURii.GT.THCONT)  THTURN=THCONT 
DIFF  = ThCOf.T-THTURN 
THRUDsTHMCP  -OIFF 
Du  4 I = ltt«JET 

DELJd )=DELT(OELdET(I>)»DTR 
DPI l)=DELh(OELJET(  I)> 

IF (A8StDLLJETtI>).EG.90.)  DP(I)=0. 

IF(OELJET(I> .EG.lbO.)  DPtllrO. 

4 CONTINUE 
GO  TO  B 
1 CONTINUE 
V=U»SP 

CALL  RESOLD! V.CCtTHT.SHIPOG.TOTLOG) 

THHlPrFMIPCV) 

thmipo=thmip/coff 

ThCONTsTHRIPO-THhARG 
THRGD=THCCNT-D1FF 
THKEVSsRHIPI VI/COFF 
5 CONTINUE 

IFICFTH.NE.O)  GO  TO  26 
DO  25  I=lfNJCT 
AhdETsNJET 

TjLT(i>=THCONT/ANJET 

TJET<I>=TJCTCI)-<l.-RHCP<I»»*CONSTl 

IFIOELJETID.EO.ieO.)  T JET  ( I ) =THRE  VS- < 1 .-P^’CPI  I)  )*CCNST2 
IF(ASSIOELJET(I}>.EG.90.>  TJETtl )=THPEVS“C1.-RMCPCI>»«C0NST2 


i 
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IBIS  PAOE  IS  BEST  QUALITY  PRACnCABLB 
K?ail  CSOiPY  FIMUSHED  XO  DD,Q  ^ 


i 


TJETi  I)=TJE;T(I>»C1.-0P  ( I>/10  0.) 

25  CONTINUE 
60  TO  10 

26  CONTINUE 
P*IR=NJET/a. 

THi6M=tTHHIP0-CGh0M(V) /COFFI/NJET 
RCi0=TnR6O/PAlR 
IFITHlCH.Gt.ROD)  THIGHsRQO 
TL0W=R60-TMI6H 
NJT=NJET-1 
00  40  I=I*NJT«2 
TJET(I>=TH1GH 
40  TJET(I*l)=TLOU 

IF(OFTH.GT.O>  go  to  10 
DO  50  I=1*NJT«2 
TJ£T(1)=TL0V 
50  TJET<1*1)=THIGH 
10  Tx=r 
TYr 

T K ~ u • u 
TN=0. 

DO  30  I=1«N0ET 
Tl=TJET<I» 

DEL1=0ELJ(1) 

ALF1=ALPHA(I 1*DTR 
TX=TX*T1*C0S(ALF1) ‘COS (DELI) 
TY=TY*T1*C0S(ALF1)*SIN(DEL1) 
TK=TK»T1»SIN( ALF1)*YARM<I) 
TN=TN-T1»C0S( ALFl) ‘COS ( DELI) ‘YARMt  n 
30  CONTINUE 

IF(DFTn.Et.C.)  TX=T X*OGMOP < V > /COFF 

TK=TK-TY»ZARH 

TN=TN-IY»XARt1 

RETURN 

END 


rHIS  PAGE  IS  BEST  QUALITY  PRAGTICA^C* 
raOM  COPY  FUKNISilEiD  TO  DiDC  ^ 


SuhnOUTli.f  REStLO(V,r=FT«TKI>'.'  , T *'1 L D'-) 

COR.WCN  /ALC/  DK»FT(ibl  ,«f  !&>•■'»  - »Htf- 1 . LF  ♦ SLF  0 W , SL  STF  b , Tht  T*  t 

•uLFTHtblRAYL 

COI-.KCi.  fit./  AA»AU,AI’,Af<.6fc,Cr.CF  .CTF  ,f.  *CL'.  FP  1 1.  , f S T,  A Vi  L . 

*F 1 oF«U0«VL 
Cor.V.Ot.  /FbEAL/  TnTr,THll 

C /TEr‘F/Sx,CY,S«*  E\,  kiVlCifi,  «E®i'  DY-»'F  = vCA.SE  *LC,C» 

COF,,'C:.  /.ALL/  VLLO.DRAG' tDELDRG 
Rr)  = khO 

IF<V.^E.SF)  GO  TO  10 
bOL  = b'JbF/  cUEL 
HLL  = DF.FT/RUbL 

1C  C=  VLL'.  *r  0*G/WE  I GHT  •?. ‘WL*  •.! 

FiV/ bGKT ('‘bOcLi 

cvi  = .rirni/(P0«G)/5>;tL*»i 

CALL  -iVLtt,''L*b''L*C.F,„AVFT> 

.iVLuj^C  .E  •?*  C*G*blfL;L*  • E*C'/T  . •p*.AVLT 

LAlL  it«C.t.ufOEi'TH,f-yftb».ALb,CnFT,V»AE''-.D&) 

CALL  GFk iYCV.St  P AYL .SPrYGG) 

CALL  SFiHbLikb.'v'»SLrC.'»ELET(‘.,Ti^lc,Ti,TC.'rALJ''-) 

Fr.H  p . .b*  F 0*  .'L  • *2*SF*  *i 
SKILbG  = ?.*uFAG:*FPF.C 
F l?»bGP"‘bX*t'kEv 

C-iF  Pl-p  ( *Av't  CG  + ArFoLG  ♦ EF  F YC  G*  SE  i L C G ♦ K I ' E C- > / F b E i 

TCTLOG:Snlfbo*r.LLDkr*Fl’CG/FkE'' 

K L 1 O r*  \ 

END 
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HJOIIOOiPY  FURNISHED  10  DD.Q 


SUBROUTINE  VORTE  X(  SX  «S  Y*SK  (SKltBETA  tCR  t CT  t StOHCCA  ) 

COnnCN  /ALL/  ARtCBAPtCOSUtNEtSINOtUS 
COMMON  /FINVOR/  A ♦bbP »UELl »T CB AR »XFN »00P 

COMMON  /IN'/  AA«AIX,AlZtAM«eP«CBtCF,OTR«CXOU«FO«G«NSTfNVAL« 
*PI«hHO«SPfUO«UL 
1VCR=1 

CALL  LI FTC< BETA tCL *CLR  »CR,CT,S* OMEGA* IVOR) 

C0M=A/WL**2*U2 

C0N2=PI»AP»C0N1 

FIt.LR=CLR*CONl 

FINL=CL«CCN1 

0RAGK=CLR««2/C0N2 

0RAG=CL**2/C0N2 

SFR=FI.NLR«C0S0 

SF=F1UL*C0S0 

SX  = -(DKAG'»DRA6R> 

VFR=FINLR*SINO 

VF=-FINL«SINO 

SY=SF*SFR 

SN=SY*XFN*(0RAGR-0RAG) *6BP/UL 
SK=(VFR-VF) •BBF/WL-SY*DDP/UL 
RETURN 
END 


IHIS  PAGE  IS  BEST  QUALITY  PRACTICAiUl 
JIROM  OOPY  FURHiaHsn  xo DDQ  - 


SUBROUT imc  ACR0(SLFT«DCPTh,B«B1«0RFT tV^ACROOG) 
ANU=l.S6E-0* 

R0=0. 00238 

RCKiOLO=V*SLFT/ANU 

CF:O.AS6/ALOG10(RCNOLD>**2.58 

C0N=0EPTH-DaFT 

AREA=SLFT*(B*61*2.«C0N) 

FK0NT=C0N*<B*B1*2») 

PRf =C.5«Rt*V«»2 

FRt.TOG=PkE»0.6»FRONT 

SK1N0G=FRE»CF»APEA 

AER00G=FRNT06*SKIN0G 

RETURN 

END 


®HIS  PAffiB  IS  BEST  QUAIIIT  PRACnCABliR 
roOtt  COPY  FUKHlSHliJD  TO  DDC  . 


SUBKOUTINC  UAV£(BCLtHOl.«C*F«TOT*L) 

Pl:3. 14159 
W = 10. 

V1=2.*W 

TOTAL=UAVeO(i=0. 

D1FF=EPSL=1. 

GAHA=1.-C 

BlOLsC/iA./S.^HCL) 

AK1S0.5/F»«2 

F2=F«F 

B0L2=2.*B0L 

B1PI=U1/P1 

C0m  = 4.«Pl«F2/W 

CCN2=2.*PI*B0L/U1 

C0N5-2*«AK1*H0L 

C0t.6  = b.*ei0L/(  AK1*S0RT<U/F2)> 

C0N7=2./B0L*S0RTIAK1/U1)*CAMA 

DO  10  H=l«20 

AM=M-1 

ALFA=C0N1*AH 

BeTA=C0N2*AH 

CCN3=SURT(1.*ALFA»»2) 

FACsll.^COhSl/CONS 

SB=SIiRT(0.5«0>5*CON3> 

SB2=^B*SB 
C0I««  = AK1  *SB 

SI6MA=CCS<C0N4)/S6-SlUtC0N4» /<C0N4»SB> 
0LLTA=C0h5*So2 

AsCONfa«CtS.(BETA» •( l.-EXP< -delta ) >*S1GMA/SB2 
IF(AH>  5«b«5 
5 PSI=W1P1«S1N(8ETA)/A« 

GO  TO  7 
G PSlsbOL2 

7 8 = C0i«7»SIKtC0N4)«PSI 

WAVE0&=CA-b>»»2«FAC*F2«EPSL*WAVE0G 

EPSL=2. 

IFtTOTAL.EQ.O.)  GC  TO  8 
DlFF=AoS<«UAVEDG-TOTAL)/TOTAL) 

8 TOTAL=WAVCOG 

IFCOIFF.LE. 0.001)  GO  TO  99 
10  CONTINUE 
99  RETURN 
END 
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SUBKOUT IHC  SPR AYt V *SPA*TL«SPRV06) 

COMMON  /ABC/  0RAFTI?5» 

COMMON  /cot/  ORlSr(73>tCNTPCC<23)«CHIN(<23)«HSPRAV<23> 
COMMON  /IN/  AAtAlX,Al;,AH«BP«CB«CF«OTR,OXOUtFOtC»NST*NVAL* 
•PI*RhOtSP*UOtWL*XLG«XFG«COLI.«CONA'tFRCUCe*CC«OOfANU 
COMMON  /SCS/  NSbl2S) *0CLlt0EL2«NltN2 
FAC:3.1AlBB/iao< 

CON:0.5*V*V/G 
00  10  IslvNST 
10  M^PRAVdlre. 

00  30  I=1«NST 

ANG=SlN(ORlSC(l)*FAC>*SINlCNTRCr(n*FAC> 
ndPKAYt I l:CON*ANb*ANG 
CMK:CM1SC(1)*0KAFT(I> 

IFICMK.LI.O.O)  CMK=0.0 
IF  (HSPRATdl.GT.CHX)  M SPR  AT  ( I ) rCHK 
30  CONTINUE 

CALL  SlrPSN(NdT«Nl tOEL 1 • DEL  2 «HSF R A T * APE A I 
M=M*1 

U = V*CnS(Li.TRCE(P><FAC/2.) 

RCNClOsV*&PRAVL/ ANU 

CF:0.075/IalOG10(RENOLO)-2.>**2  *0.0uC4 

PRE  = 0 •5«RmO*0»U 

GPKY0G=FRE«AREA>2.*CF 

RETURN 

ENO 
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JBIS  PAGE  IS  BEST  QUAIitTY  PKACIlCABIil 
OOPI  FURNISHB3D  TO  DDC  - 


SUfeKOUTIUe  S>C*Hb,\(.SLbCU«5;L$TRN*7HTb«7hTS,£EALD6J 
CC^'«0^  /AbC/  OtAFTl?‘< 

Ci-KFCi!.  /ir;/  A*,  AIx,A1Z,AF.»|  F«Cf  .7^  .[;Tk.2XCU,FC.r-,*.STtlvVAL» 
• FI,  Anrj.iP  ,U0,  W'L,  xLr.,  xF&,COl  LtCDVU.F-  CUC.t  ,CC,  OC,  AI:U 
cotyon  /3f5/  HS-(?':-),DELl,OtL»,  VJ 
r;3=M*l 
RbOW=0, 

pkt  = l).tj»P,h(0»V»V 
FkCE=FkE*p 
VA\U  = V/AMJ 

SL1=D«AFT(‘.J)/SIU(TH  fb) 

IF (SLl .OE.rLbOfcA  SLlrSLbPy 
bCiiSLi  iLl^COSlTHTFI 
IFIb'j-bL.LF.C.)  CO  10  10 
REk'OLD  = bC.SL*VAMl; 

Cf^D.C'iA/lOLNCLD'^d./b.)) 

PcC*-F^'Lb,bOVSL^CF 
10  CCMIl.OE 

F\  0 T i\  r,  r 0 • 

S..£-  = OntFTU  ) / S 1 1. 1 1 r.T  S ) 

IF  (iL:'.;,E.SLSTK;. ) ?Li=SLST?,i, 

5Tf.‘,i,LsSL?*C0S(TrlS) 

IMSTF-iSL.LC.D.)  it  TF'  70 
f-L;.tLO=STr,  iiU'VA'.U 

K-lf:.:P.-£r.*iTb\SL*CF 
ir  ALuji'^bC-.  ^’ViThN 
RETOk*. 

Ef-0 
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XHIS  PAQE 15  BfiST  QUALITY  FIUmCi£UI 
raOMCOPYFURJUSHBDIOnDC  ^ 


I 


SUBROUTIMC  DAAG(OY«OKtON«F'«R«V) 

COnnON  /IN/  «A«AIX<AI2«AH«BB«CB«CF«0TR,0X0UtF0«G«NST«NV«L« 

• Pl«l«hO«SP«UO«UL*XLG«XFG«CDLL«CONN 
COMHON/X/  ISECT(?S>«DI (25)«DFI(2S) tDF2I(?S)«DF3I (a5)iDCI(2!:i* 
*0C2I(25I«0C3I (25>tDCFI l25)tDCF2I(?5) •uC2FI(25)«e3bl 125) «XSkF25) 
COHHON  /Z/  AR«ARL*ARL2«ARL3«APP«AFF2«ACF3*APFL««RFL2<ARF2L«e3B 
P2=F»P 
R2=K*R 
V2=V«W 
RP2=R«P«2. 

VP2=V«P«2. 

VR2=V*R«2. 

VO=V-FO»P/WL 

bUC=&IGNtl.O*Vb) 

IFIR.CG.O.IGO  TO  7 
XO=-VO/R 
7 CCNTINUC 

ARCA=OI (NST) 

ARCAL=i)Fl  (NST) 

AKCAL2=0F21(NST} 

AReAL3=DF3I(NST> 

ARtAF=DCHNST) 

AKeAF2  = DC2HNST> 

ArCAF3=0C3I(NST> 

AREAFL=DCF1 (NST) 

AFL2SDCF2I (NST) 

AF2LcDC2Fl(NST) 

DY=-C0LL*(V2*AREA*R2»ARtAL2»P2»ARtAF2*VR2»AREAL-RP2»AREAFL- 

•VP2»AREAF) 

ON=-CDLL»( V^•AREAL♦R2*AFEAL3♦P2•AF2L♦VR^»A'>EAL^-RP2•AFL^- 
•VF  2*ArE  AFL) 

DK=CDLL«(V2»AREAF*R2«AFL2*P2»AREAF3«V'>2»ARE#FL-RP2» AF2L- 
*VP2*AREAF?) 

0KW=-CDNN*b3BI(KST)*P* ABS(P) 

IF(R.tu.O.)GO  TO  2 
IF(XO*XLG)  2*2«1 
1 IF(XO-XFG)  3«2«2 
3 CALL  GEOK(XO) 

AY=-CDLL»(V2*AR*R2»ARL2*F2«ARF2*VR2«  AF L-RP2* A" FL- VF2* ARF ) 
AN:-CDLL  * (V 2 • ARL ♦R 2* AO L 3*P2*ABF ?L* VR 2 • AFL2-P P2 • ARFL2- VP2« AR FL) 
AK=C0LL»(V2» ARF*k2«ARFL2»P2*  ARF 3*VR2 • AC FL-RF 2* APF 2L- VP2*4 RF 2) 
QULP=SIGN(1.0*-X0) 

OY=(OY-AY«2.>«CNEP 
UK=(0K-AK»2.) ‘ONEP 
0Ns(0N-AN*2.)*CNEP 
2 0Y=DY«0NE»2. 

0R=2.*CK*0NE  «OKV 
ON=ON*ONE*2* 

RETURN 

END 


JHIS  PAGE  IS  BEST  QUALITY  PRAiCHSABJ*! 
JfKM  OOPY  EUKHlSHEiD  10  BAQ  — ^ 


/f 

SUbROUTINC  GifOHCXO) 

COHRON  /IK/^AtAIXf  A17,AntEbtCB«CF,DTR«CXDU«F0«G«NST«RV*Lf 
»PIfhHO«SP.O®*aL»XLG,XFG,CDLLtCORN 
COMHOH/X/  ^%ECT<25)  fOI  (2S)  «OFI  C2S>>  »DF2I  t2b).0F3I  (2&),DCI  (25J* 
*UC2I(25>(itC3I(25>«0CFI (2b>«0CF21(2bl  « 0C2F I ( «b SB  I ( 25) « XSU 1 2S) 
COHHOU  /Z/  AR*ARL«ARL2tARL3«ARF«ARF?,AaF3«ARFL«ARFL2tAFF2L*B3e 
YO(AO»X1»X2.Y1*Y2)=Y1*(XO-X1)«IY2-Y1)/(X2-XJ) 

XO=XO«AA/^L 
DO  1 I=2«NST 
K = I 

if(xo.gc.xsw(I-i)«ano>xo.lt.xsu(I)>  go  to  2 

1 CONTINUE 

2 K1=K-1 
Xl:XSb(Kl) 

X2=XSU(K> 

AR=YO(XO  «Xl«X2tDI(KI>  tOIlK)) 

ARL=YO(XOfXltX2«DFI(Kl>,UFI(K>> 

ARL2=YO(XO»X1,X2.DF2I(K1),DF2I(K)) 

ARL3=Y0(XC«X1 tX2tDF3I (Kl) (CFSI (K>> 
ARF=YO(XO«XltX2«OCI(Kl>«OCl(K)) 

ARF2=YC(X0«X1,X2*DC?I(K1) ,DC2I«K)) 
ARF3=Y0CX0»Xl,X2»DC3nKl),DC3I<K)) 

ARFL=Y0(X0tXl«X2«DCFI(Kl >tDCFI(K)> 

ARFL2=YO<XO,XltX2»CCF?I (K1 ) *0CF2I (K ) ) 
ARF2L=YO<XO,X1,X2,DC2FI(K1),OC2FI<K> ) 
b3b=T0 (XOtXl tX2«63ei (Kl) ,6361 (K) ) 

RETURN 

END 

vv 


I 


I 

i 
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SUBROUTINE  DR AGVt CZ« OK • OKt F« W« 0«K> 

COKHON  /blLH/  BCAH(25>«cLAKI(2S>«bC*)*FI(25>«BCA''F2I(25) 
•>«eEAHF3I  C2St 

COMMON  /bEeM2/  BEM2 (25) »bEH3 «25> ,ARHS« ARMP 
COMMON  /IN/  AA«AlX«AI2«AM,BR«Cb«CF,0TR«0X0U«F0(GfNSTtNVAL* 
*Pl«RHOvSP«UOtWLtXLb»XFG«CDLL«CONN 
COMMON  /X/  CUMMY(300) tXSU(25) 

COMMON  /21/  BRtBRL*BRL2tBRL3 
DIMENSION  F(2S> 

TRAP(h«Yl«Y2)=0.5<H*<rl«Y2) 

DO  3 I=liNST 
6EAH(n=bEM2(l> 

1F(K.E0.3>  bEAM(l>sBCM3(l) 

3 CONTINUE 
y2=b*u 
02=0*0 
U02=W*G*2. 

0NE=SIGN(1.0f U) 

IFCO.EO.Q.)  60  TO  17 
X0=U/O 
17  CONTINUE 

BEAMI{l)rBEAMFI(l)=BEAMF2I(l)=BEAMF3I(l)=0, 

DO  lA  I=2tNST 
H = XSU(I  )-XSL'<I-l) 

M=h*yL 

BFI=BEAM(I>*F<I) 

BFIl  = BEAf.(I-l)*F(I-I) 

BF21=BFI*F(I) 

BF2I1=BFI1*F( I-l) 

BF5I  = BF2I*F  ID 
BF31 J=PF2I1*F(I-1) 

B1=TRAP(H«BLAM(I) «BEAM(I-1)) 

B2=TRAPlH«BFItBFIl) 

B3=ThAP (H,BF2I»BF2ID 
B4=TRAP(M,BF3I.bF3Il) 

BEAKK  n=6EAMI(I-l>*Bl/WL**2 
bEAK.Fl(I)=bEAMf  I (I-1)*B2/UL**3 
B£AMF2I< I)=8EAMF2I(I-1 )*B3/UL**A 
BEAMF3I (I>=bEAMF31 (I*1)*BA/UL**5 
lA  CONTINUE 

AREAsbEAMKNST) 

AREAL=BEAKFI(NST) 

AREAL2=B£AHF2IINST) 

AREAL3=faEAMF3I (NST) 

D2=-CDNN*(.2*AREA*&?*AREAL2-WQ2* AOEAL) 

JM=  CDNN*(.2*AREAL*Ci2*AREAL3-*02*ARCAL2> 

IFCO.EO.O.)  GO  TO  12 
IF(XCi*XLO)  12«12«11 

11  1F(X0-XFG>  13«12«12 
13  call  GE0MV(X0> 

B2=-C0NN*(k2*BR«02*BRL2-WC2*BRL) 

BM=-C0NN*(W2*BRL*Q2*BRL3-W02*BRL2) 

ONEP=SIGN(l.t-XO) 

02=<DZ-B2*2.>*ONEP 

OM=(UK-BM*2>*ONCP 

12  02=D2*0NC 
OH=OM*ONE 
ARMsARMS 

XF(K.Ea.3)  ARMrARMP 
DK=  OZ*ARH 
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XHIS  PAG£  IS  BEST  QUALITY  FRACTICABLi 
IBOil  CX>FY  f UhiaSilES)  3$  e&Q  


RETURN 

END 
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IBIS  PA®  IS  BIST  QUAl/lW 

JIJOM  COPY  FioattSHS)  IODBQ  — 


SUBROUTIhC  GCOKV(XOB) 

VERTICAL  DRAG 

COMMON  /BEEM/  BEAMt25)*BEAHH25)»BEAKFlf25)»BEAHF21(25> 
•iBEAHF3I(2B) 

COMMON  /IN/  AAtAIX.Al»,AM,faB»CB*CF,DTRtDXOU,FO,G»NST»NVAL» 
*PI«RH0«SF«UC«UL«XLG«XFG,CDLL«C0NN 
COMMON  /X/  OUMMY<300)»XSW<25) 

COMMON  /Zl/  BR*BhL«bRL?«BRL5 
TO(XOtXl«X2«Tl«Y2>:ri«(XO-Xl)*< Y2-Y1 >/(X2-Xl> 

XOB=XOb*AA/UL 
00  1 1=2«N$T 
K = 1 

IF<XOB.GE.XSUI1-1).AND,yOB.LT.XSU{I>»  CO  TO  2 

CONTINUE 

K1=K-I 

X1=XS4(K1) 

X2=XSU(K) 

DR=Y0<X0E»Xl.X2«bLAMI(Kl),BE AMI «K) > 

BRL=Y0lX0B»Xl»X2tBEAMFl(Kl),6EAMFI(K)) 

8RL2=Yu(X0B«Xl»X2«BEAMF2I<Kl)*6EAMF2I(R») 

BRL3  = Y0(X0fa  fXltX2.6EAMF3I (K 1 > ,BE AMF 3 1 ( K } ) 

RETURN 

ENO 


f 


IHIS  PAGE  IS  BEST  QUALITY  FBACXtfiABLI 
roOM  COPY  FURJilSHED  TO  DDO  


SUoKOUTINC  0ER(AAtBBtCC*D0«ThTtPHItNST«M«N2«0E:LltDEL2fHSW«hSUt 
•XSWtDl«Ul«a2«RH0«UL) 

DIMLI.SICN  HSW(l)«l«Sb(l)  yXSU(l) 

OIKENSICN  D(2S)>F<2B) 

DIKEhSIbn  6(25>«S(2S>  tCSZ(25>«SUAYC(26>«HEAVCf 25> 

OlHEUSIbN  01(25*25) tUl (2St2S) «W2 (25*25) 

DO  1 Msl*).ST 
F (n)rxSV(K)*UL-AA 
D(M)=CC-HSU(M)  -THT«F(M) 

IF(0(K>.LT.O.)  0(H)=C. 

1 CALL  SECT(H*0*D1*NS**U1*W2*B*S*CSZ*00) 

C COMPUTE  derivatives  WITH  RESPECT  TO  F 

C FORM  INTEGRALS 

C INTEGRATE  AXIALLY 

CALL  INTE6(6*D*F  *S*CSZ*N1 *N2 * DELI  * OE L2 « NtT*SUA YC *HE AVC) 

CALL  N0ND1H(BB*  RHO *UL* B* 0* F* CS2* SU A YC*HE AVC) 

RETURN 

END 
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1 


u o o u u u 


IHIS  PAGE 

raoMOOP^ 


IS  BEST  quality  PBACT1CAS» 

yUBjUSHEC  10  UDfi  — — 


SU&KOUTINE  SECT(I«0«0I «KSU«>l*W2«Bt*«CSZ«0D) 

DIMENSION  b(25>«S(25>*CSZC25)«01 (2bf 25 > *U1 ( 25« 25 ) « W2( 2St 25) 
OIHENSION  0(l>«NS'ii(l) 

FLlNER{)(,X2tXl,Y2»  tl)  = Yl*CX-*l)*<  Y2-Y1  )/{X2-Xl) 

Bd  > = S(1>=CSZ<I>=TEKP1  = 0. 

0R*FT=DC1) 

JJ=NSy( I) 

KLlsO 

00  1 J:2*JJ 
R02=01II«J) 

RD1=01( I«J-1) 

RU12=kllI«J) 

RWllsuKItJ-l) 

Ry22=y2< itJ> 

Ry21:y2(l«J-l) 

IFIDRAFT.LE.0.0)  GO  TO  A 
IF(0RAFT.GE.01(I*J)>  GO  TO  2 
Ryi2=FLINEk(0RAFT<P02tP01«Ryi2tRUll) 
RW22=FLIhER(0RAFTtRD2tR01*Ry22«RW21> 

KL1  = 1 
R02=0RAFT 

CALCULATE  AREAtGIPOERtANO  BEAM 

2 DELO=R02-R01 
yiO  = Riil2-Riill 
y20=Ra22-RU21 

OELS=0.5*OELO*(Ryi2*Ryil«RU22«Rk21) 

Bti)sRal2*Ry22 
S(I>=&(I)*OELS 
6Jni=R.ll«RW21 

CALCULATE  CENTROIO  FOR  AREA  ABOUT  Y-AXIS 
T02=0(I>-R02 

SKOH=(TD2*0.5*DELO>»6dm»OELO'» 

•«T02*DELD/3. )»0.;*0EL0»(U10*y20) 

TEMP1=TEHP1*SH0M 
IF(KLl.EU.l)  GO  T 0 3 
1 CONTINUE 

3 CSZ(  I)  = lEPiPl/S(I)*OD-OtI) 

A RETURN 

ENO 
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non  non  non 


SHZS  PAGE  IS  BEST  QUALITY  FRACtZOAUil 
I3»U  OOPY  FURJUSHED  TO  HOC  ^ 


SUBKOUTIKC  INTCC(BtO«F ,StCS2«Nl«N2«0rLl«CFL2«N'STf SWAYCtHTAVC) 
OIMENSiON  S«AYCt25)«rit*VCt2B>,B2<25>»b2K?*iJ*fe2F2<2E>«B2CS2«25>t 
•B2FCS2l25)»B2r)DFC25>»B2F0DF<  2b»»D2»25)  «D2F(2?>)  .D2F2(25>* 
*D2CS2i2b)»D2CS22(25)»D200F(25)»C2FC5>2(25) .DCS70F ( 2S ) ♦D2F00F < 2bl 
•tD2CZ0FC2b) 

COMMON  /INTEGL/  B2 1 ♦ 62 F I , B2F 2 1 , B2C SZ 1 . RF CS7 1 « 6 2DDF I ♦ BFODF I , 

•021  ,D2FI  ,L2CSZI  .DC',Z21  ♦D20DF  I ,DF  CSZl  «DFDOF  1 .DPF2I  ,DC2DFI 
OIMENSION  B(l>fO<l>«F(l)«S(l>«CSZ(l> 

COMPUTE  DEkIVATIVES  OF  D AND  CSZ  WITH  RESPECT  TO  F 

M1=N1-1 

0CSZ0F(l>=(CSZt2)-CSZ( D) /DELI 
DCS20F  (N1)=(CS2(NI  >-CSZ(Nn»  >/DELl 
DO  1 I = 2«Nn 

1 DCSZDFd )=0.5»<CS2<I*X)-CSZ( I-1»)/0EL1 
N21=N1*1 

N22=NST-1 

DCS20FJNST) =(CSZ(NST>-CSZ<N22))/DEL2 
00  2 1=N21«N22 

2 DCSZ0F(I>=0.b»lCSZ<l*l)-CSZ(l-l>)/DEL2 

COMPUTE  AND  STORE  VARIABLES  FOR  AXIAL  INTEGRATION. 

00  3 1=1«NST 

IF (B 11). EO. 0.0. Ok. 0(1). EG. 0.0)  hEAVC(I)=1.0 
lF(b(l).EG.O.O.CR.O(n .EG.Q.O)  GO  TO  A 
HEAVC(1)=S(I > /B(I )/D(I) 

A S«AYC(I>=2.A»HCAVC(1)*0.A 
b2(l):B(l)*B(I)*HEAVC(I) 

B2F(Ij=B21I)*F(I) 

b2F2(l)=B2F(I)»F(I) 

B2CS2(1>=B2(I)*CSZ(1> 

B2FCS2( 1 )=b2F< 1)»CSZ(  I ) 
eZOCF (l)=b2(I)»DCSZDF(T) 

BrFDDF( I)=B20DF( n«F(I) 

C2(l)=0(l)*D<I)»StAYC(I) 

D2F(1)=D2(I)«F(I) 

02F2<I)=02F<I)*F(I) 

D2CS2ll)=D2(l)»CSZ(l) 

02CSZ2(I)=D2CSZ< I)»CSZ(I) 

D2CDF<I)=02(I )*DCSZDF(I) 

02FCSZ( l)=D2Ft 1)»CSZ( I ) 

D2Fl)DF(I)=D2D0F(I)*F(I) 

3 02CZDF(1)=D2(I)*CSZ<I) •DCSZOF(I) 

PERFORM  AXIAL  INTEGRATION 

CALL  SIMPSr,(NST.M  .DEL  1 .OE  L2  .B2  «B2 1 ) 

CALL  SIMPSN(NST.NI.CCLI,DEL2,H2F,B2FI) 

CALL  S1MPSN(NST,N1«DEL1 .DEL2,b2FZ,b2F2I) 

CALL  SIMPSu(NST.Nl«DCL l«CEL2.R2CSZi6?CSZI) 

CALL  S1MPSN(kST«N1«0EL 1 .OELZ.BZFCSZiBFCSZl) 

CALL  SIMPSN(NST«Nl<CELI<DCL2«b2DD>'«620CFI  ) 

CALL  SIMPSS(NST«M •0CL1«0CL2«B2FD0F,BF0DFI> 

CALL  SIMPSN(NST.M«0EL1  «DEL2t02«02l) 

CALL  S1MPS.«(NST.M.DEL1.0EL2.D2F,D2FI) 

CALL  SIMPSN(NSTtN'l  »DE>.1  «0EL2,02CS?«02CSZI) 

CALL  SIMrSNCNST.M.OELl «DEL2.02CS72«0CSZ2I) 

CALL  SIMPSN(NST.N1«0EL1«0CL2  «0200F tO 20DF I ) 
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THIS  PACffi  IS  BEST  QUALITY  FBACIICABiS 
TBm  COPY  PUimSH£0  10  SOA 


CALL  Sir*PSN(NST«NltOCLl«OLL<:t02FCSZ«OFCSZI  > i 
CALL  SIMPSHlNST,M,t;ELltDEL2tD2FDDF»DFDDFI) 
CALL  S1MPSNIUST,M,DEL1.DEL2  «D2F2»C2F2n 
CALL  S1MPSN(  NST»M,0ELl,DEL2t02CZ0F,DCZCFll 
RETURN 
END 


IHIS  PAQE  IS  BEST  QUAltlY  PRACtlCABLl 
ERCM  COPY  FURBISHED  TO  DDC 


SUBROUTINE  GC 0< AA, BBtCC «D0«y L«NST«THT «KFO«FO > 

DIMENSION  B(25)«CSZ(25)tF(25>.G(26>,S(2'=)«DF(2S) «DF2(2S)«0F3(25>« 
*0CSZ(2S>«0CSZ2(25>  «0CSZ3«25 > tDC'.ZF  1 25) .DCSZF 2« 25 ) ♦DCS22F C 25 ) 
*«D(25> 

COMMON  /ABC/  0RAFT(25) 

COMMON  /GE0MM/NSU(25>« Vl(25t25>«k2(25«25)«01(2bt25> 

COMhON  /SES/  HSy<25) *DEL1*DEL2»N:»N2 

COMMON  /O/  G1(25>«SI(25)<S1(25><PH0(25)«TDKAF(25) 

COMMON/ X/  lSECT(25).DI<25)«DFl(25)fDF21<25)»DF3H25),DCI(25)t 
• DC2I (25)«DC3I (25 ) ,DCF I (25) .DCF  2 1 (25 > , DC2F I (25) tB3BI « 25 ) , XSl < 25) 

STATEMENT  FUNCTION  FOR  TRAPEZOIDAL  INTEGRATION 

TRAP  ( H.T1.Y2)  =(1.5*  H*(Y1'»Y2) 


STATEMENT  FUNCTION  FOR  LINEAR  INTERPOLATION 

STATE (X.X2.X1.Y2.Y1)=Y1*(X-X1)»(Y2-Y1)/(X2-X1) 
CONSTANTS 

«L2=WL*UL 

yL3=yL2*yL 

ULA=yL3*yL 

wLS  = UL«>iiL 

0TR=3.1A15927/180. 

PHI2=2.»0TR 
DO  999  K=l»5 
PH1=PHI2-(K-1)«0TR 
PHOlK)=PHI 

CALCULATE  DRAFT  AND  CC 

DO  9 Msl.NST 
F(M)=XSW'(M)»UL-AA 
0(M)=CC-HS«(M)  -ThT»F (M) ♦bB»PHI 
IF(D(M) .LE.0.0)  D(M)=0.0 
IF(K.EQ.3)  DRAFT(M)=0(H) 
ir(K.EQ.3)  CCO=CC 

CALCULATE  GIRDER  AND  CROSS  SECTIONAL  AREA 


I=M 

DRFT=0(M) 

C(i)=ui(iti>«y2(i«i) 

6(1)=CSZ(I>=0F (I )=DF2(I)=0F3 (I)=DCSZ(I)=DCSZ2<I)=DCSZ3{I)= 
♦DCSZF(I)=DCSZF2( I)rDCS22F(l)=S(I)=TEhPl=0, 

JJsNSUd  ) 

KL1  = 0 

DO  6 J»2 .0 J 

R02=01(I.J) 

RD1=D1(I.J-1) 

R>12=.1(I«J) 

Rull=kl(l,0-1) 

RU22=y2(I .J) 

RU21=k2( l.J-1) 

IF(ORFT  .LE.0.0)  GO  TO  9 
IF(ORFT  .GE.DKI.J))  GO  TO  7 
Ryi2=STATE(DRFT  .R02. ROl «RU12.Ry 11 > 

RW22=STATE(0RFT  .RC2.R01.Ry22.Ry21) 

KL1  = 1 
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o o n 


JBIS  PA®  IS  BEST  QUALITY  PRACHjfiA^ 
TOJiM  C»PY  FURNISHED  TO  QDC  — 


R02=0RFT 
7 0E;L0=R02-R01 
0LL02=0£LD*0EL0 
h1D  = R>12>RUU 
w2D=hd22-RU21 

DELS  = D.b<DE;LD<(Kill2«RUll«Ru22«RU21> 

[)tLC>l  = Si;RT(  ^lD*blD*0CL02> 

0E:L(>2  = SGR7  (W2D*W2D*DEI.D2) 

0CLG=UCLG1*DCLG2 
b(n=Rdl2«RW22 
BJK1=RW11«RU21 
T02=D(1 )-RD2 

SMOH  = <TD2*0.5»CELD)*ejHl«OE:LO*aD2*DELO/3.)«0.b»OELD»<UlO*U2D) 
TEHPl  = 'tEt',Pl*ShOM 
S<I >=SCI>*0ELS 
6tl»=Ga)-*0ELG 
CSZ<  I ) = TEf'Pl/S(I  > ♦OD-OIII 
IFCKLl.EG.l)  GO  TO  12 
B CONTINUE 

12  IF(K.NE*3)  GO  TO  9 
OFCI)=0( I)*F(I> 

0F2tl)=DF<I»»FtIJ 

DF3<1)=DF2(I)*F<I) 

PARM=CSZ(I) 

OCSZ<I>rD(I)»PAftM 
DCS22(1  )=DCSza)*PARH 
DCSZ3(n=DCSZ2<I>*PARH 
DCSZF< 1 )=DtI)»F<  H*PARH 
DCSZF2tn=DCSZF<l)»FCI) 

DCiZ2F( I)=DCSZF< 1) ‘PARH 
S CONTINUE 

INTEGRATES  FOR  WETTEO  SURFACE  AREA  AND  0 1 SPL ACEFIENT 

CALL  SlHPSN(NST«Nl«OELlf 0CL2«S«SI(K)  ) 

CALL  SINPSN (NST«Nl«DELl«DEL2«GtGl(K) ) 

SI(K)=SHK)/nL3 

G1 (K)=G1<K>/UL2  «* 

S1(K)=S(1)/WL2 

TDRAF (K )=D(1 )/WL 

IF(K.NE.3)  GO  TO  999 

DI(1)=DFI<1)=DF2I(1)=CF3H1)sDCI(1)=0C21<1)=DC3I <1)=0CF1(1)= 
•DCF2U1  ) = DC2FI  (l)  = b3BI  (1)  = 0. 

FOrCSZtKFO) 

DO  1 l=2fNST 

H=<XS4tI)-ASW<l-l))*WL 

A1=TRAP(H,0(I><D(1-1)) 

A2=TRAP<H«DF(I ) *OF (I-l >) 

A3=TRAPlHtoF2U)»0F2ll-l)) 

A't  = TRAP«HtDF3(I»»0F3<l-l)) 

A5=TRaP  Ih.Bt  1)  *eu-i)) 

A6=TRAP(h,CCSZ2(l>«DCSZ2(I'l>) 

A7  = TRAPtH,CCSZa)»OCSZlI-l)) 

A8  = TRAP(H,0CSZF (I >,OCSZFCI-l  )) 

A9=TRAP<M,DCS2F2«I >»DCS7F2«I-1>) 

A10  = TRAP(H«DCSZ3(ntOCSZ3(l-l>) 
All=TRAPtH,0CS2ZF<I),DCS22F(I-l>> 

DI(I>=0I<I-1>»A1/L:L2 
0Fl(it=DFl(l-l)*A2/i^L3 
DF2I(I >:DF2I ( I-1)«A3/ULA 
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IRIS  PAGE  IS  BEST  QUALITY  mmCABl* 
OOiPY  ETJRNISHH)  TO  DDC 


0F3I ll)=0F3I (I-1>*A4/WLS 
DCItH=0CI{I-l>*A7/ULS 
0C2I(I):0C2III-1>*A6/UL4 
0C31 tl >rOC3I (1>1)*A10/UL5 
OCFI(I)=UCFI ( l-l)«Atf/UL4 
DCF2i(I)=CCF2I<l-l>*A9/UL5 
DC2F1 tI>=DC2FI tI-l)»All/UL5 
B3bI(I)=63bI(I-l>«bB**3*AS/ULS 

1 continue 

999  CONTINUE 
RETUKN 
END 

vv 
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THIS  PAG®  IS  BIST  QUALITY  PRACtlCABLX 
FROM  OOPY  FURNiISHESD  TO  DDC  ^ 


SUBROUTINE  N0N01K(6B«  KH0«yL« Bt 0«F « CSZ fTE MP Af TCHF'R) 


REAL 

KIP  ,K1Q  tKlU 

^KIOP^KIOC^KIOU^RIP 

«M1Q 

»M1W 

»F10P, 

H1D0«M10U« 

K2P  «K20  *K2W 

«K20P«K2D0*K2DW,>i2P 

«N20 

tN2W 

«N20P» 

N2D0«N20U« 

K3P  »K3P  »K3V 

,K3DP,K30PtK3DV.N3P 

tN3R 

«N3V 

«N30P« 

N3l;R«N3DV« 

KRP  <KAR  ^KRV 

«KADP«KROR«KACV«K<tP 

»M<|R 

«MAV 

»MAOF« 

HADhtMAOVf 

L2  «L3  «LA 

♦ L5 

DIMENSION  B( 1>«D(1>«F< 1 ) , CSZ « 1 ) ♦ TE MP A 1 1 ) «TC“PR  ( 1 > 

COMMON  /INTEGL/  B2 1 »e?F I * bZF 2 1 . B2C SZ 1 1 bF C S7I t E ZDOF I »BF DDF  I , 
*02I»D2FI»C2CSZI«DCSZ2I ♦C2DDFI«0FCSZI»DFDCPI .0PF2I,DCZDFI 
COMMON  /NOO/  DYP«OYC*OVR,DYV,OY'.'«DTDP»DYC(.<SYDP«OYOV«OYOW« 

• D2PtD2(!»D2P»DZVtCZ»«OZDP«DZCC.:ZDR»D2nV»P7DW» 

* OKPtOKQf OKKfOKVtOKWtCKnPtOKCOtCKORtDKOVtOKDkt 

* DMP,OMO«OMR«DMV tOMW, CHOP « CMC';  «SMCR«DMOV«DKDU* 

• DNP,ONg«DNR*ONV«CNU«DNCP«ONCO«DNOP«DNDVtONOW 
PI=3.1A15927 

AKY=0. 

AKZ=0. 

H=  0.25*PI*RHO 
Cl=  H 

C2=  C1»AKY 
C3=  M 

CA=  C3«AK2 

L2=  0.5*RMO«UL»«2 

L3=  L2*yL 

LA=  L3»WL 

L5=  LA»UL 

ZlDWr  -B2I‘C1 

Z1DP  = 86<>Z10U 

Zltl  =(BC1)»»2»F(1))«C1*TEMPRI1) 

2100=  B2FI*C1 

21U=  -B(1)**2*C1»TEMPR(1) 

ZIP  = B6*Z1U 
M1DW=  B2FI*C1 
M10P=  BB*M1DU 

MIG  =(-etl>**2»F(l)«»2»TEMPh(l>-B2FI)»Cl 
M1D0=  -B2F2I»C1 

Miy  = (B(1)**2*F11>«TEHPR(1)*B2I)*C1 

MIP  r be*MlW 

KlDWs  6B*Z10U 

K1DP=  BB»Z10P 

KIQ  = BB*Z10 

K10G=  BB*Z10Q 

Klb  = BB*Z1W 

KIP  = BB«2IP 

Y2DW=  -b2I»C2 

Y20P=  BB»Y20W 

Y2Q  = (b(l)»*2»F(l>)»C2*TEMPR(U 

Y2D6=  b2FI»C2 

Y2w  = -Btl>*«2*C2*TEMPR(l> 

Y2P  = BB*Y2y 
N20U=  -B2FI*C2 
N20P=  BB*N20U 

N20  = (B(1>**2*F(1)**2*TEHPRC1I«P2FI)*C2 
N20b=  B2F2I*C2 

N2U  s (-BIl>**2*F(l>*TEMPRU>-a2I>*C2 
N2P  = BB*N2U 
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K20U:  B2CSZI*C2 
K20PS  BB*K2DW 

K2Q  s f-B(l>**2*F(l>*CSZ(l)*TErt'>R(J>-BFD0FI)*C2 
K2D0=  -BFCSZI*C2 

K2U  : (6(l>**2*CSZ(l)*TCnPR(l>«B20DFI)*C2 
K2P  = BB*K2U 
Y30V=  -D2I*C3 

yjR  = «-Dtl>**2*F«  l))*C3*TEMPAa> 

Y30R=  -D2FI«C3 

Y3DP=  02CSZ1*C3 

Y3V  = -01  H*«2»C3*TEMP*<1) 

Y3P  = <0(1)*«2«CSZ<1>«TE«P*<1»  >«CS 

N3DV=  -D2FI»C3 

M3R  = (-DC1)»*2«F(1)«*2»TEMPA(1)-02FI)«C3 
N3DR=  -02F2I»C3 
h3DP=  0FCSZI»C3 

h3V  = «-Dtl)»«2*F<l>*TEP.PA{l)-02H»C3 

N3P  = (0»l)»»2*F(l)»CSr<l)»TEMPA<l>*02CSZI  >«C3 

K3DVS  D2CSZI«C3 

K3R  = <D«l)»»2«FCl)»CSZ»ll*TEHPAtl)*0F0DFI)»C3 
K30K=  DFCSZI»C3 
K3DPS  -DCS22I*C3 

K3V  = (D(1)*«2»CS2(1)«TEMPA(1)*02D0FIJ«C3 

K3P  = <-D<l>«»2*CSZ<l)*»2*TrMPACl)-  0CZ0FI)*C3 

ZAOVs  -02I«CA 

ZAP  = (-0(l>**2*F(l))*C4*TEnPA(l> 

ZAORs  -02FI*C4 

Z4UP=  D2CSZI*C4 

24V  = -Ctl)*»2«C4«TEHPA(l) 

ZAP  = (0(l)*«2»CSZa>»TEKPA(l)*0200Fl>«C4 
HADV=  D2F1*CA 

HaR  = (011>**2*F(1)**2*TEHPA(1)'»D2FI)*C4 
MADKs  D2F21»CA 
MA0P=  -DFCSZI*C4 

MAV  = (0(1>»»2»  F(1)»TEKPA(1)a02IJ*C4 

HAP  = (-0(1)«*2»CSZ<1)»F«1)»TEKPA«1)-D2CS2I-OFOOFI)«C4 

KAUVs  b6*Z40V 

KAR  s BB*ZAR 

KADR=  BB*Z4DR 

KADPs  BB*24DP 

KAV  s BB*24V 

KAP  = BB»24P 

OYP  = (Y2P*Y3F»/L3 

OYQ  = Y2Q/L3 

DYR  = Y3R/I.3 

OYV  = Y3V/L2 

OYW  s Y2W/L2 

OYOP  = (Y2DP*Y30P)/L4 

OYOQ  = Y200/L4 

DYDR  = Y30R/L4 

OYDV  = Y30V/L3 

OYOb  : Y20U/L3 

DZP  = 12lP*24P)/L3 

OZb  = Z1Q/L3 

DZR  = ZAR/L3 

OZV  = Z4V/L2 

DZU  = Z1W/L2 

OZUP  = <Z10Pa240PI/L4 

020C  = Z1D0/L4 

OZOR  = ZA0R/L4 
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02DV  : Z<iOV/L3 

! OZOW  S Z10U/L3 

DKP  = iKlP*K2P*K3P*K4P)/L4 
DKQ  = (K10*K2(.>/L* 

OKR  = (K3R«K<iR)/L4 

DKV  = <K3V*K‘iV)/L3 

OKW  = (Kiy*K2U>/L3 

DROP  =tKlDP*K2DP*K3DP*K«DP)/L5 

OKOb  =(K1D0*K20!>)/L5 

UKOR  = (K30R*KRDR)/L5 

DKbV  = (K30V*KRDV)/L4 

OKOW  = (KlDU«K2Dw)/L4 

OMP  = »KlP*M<(P)yL4 

OPQ  = P.IQ/LR 

OHk  = HRh/LA 

OK.V  = MRV/L3 

DMW  = M1W/L3 

DMOP  = <mDP*HADP)/L5 

OnOQ  = P1D0/L5 

DPDR  = P<lDR/L5 

DPIDV  = PI<«DV/LR 

OMDW  = nioy/LR 

ONP  = (N2P*N3P)/L4 

ONQ  = ^20/14 

DNR  = NJR/L4 

ONV  = N3V/L3 

ONV  = M2W/L3 

ONDP  = <N2aP*N3DP)/U5 

0N0(.  = N20Q/L3 

ONOR  = N3DR/L5 

ONOV  = k30V/L4 

ONOV  = N20y/L4 

C COEFFICIENTS  FOR  TWO  HULLS 

DYW=DYCi=DKW=OKU=DN.sDNQ=OYOy=OYOG=DKOW=OKDC=ONDy=CNO&=0. 

DYV=2.*DYW 

0YP=2.»Y3P/L3 

DYR=2.*0YR 

0ZU=2.*0ZW 

0ZP=Z4P/L3 

0ZO=2.*D2O 

DRV=2.»K3V/L3 

DKPr2.«<KlP*K3P)/L« 

DRK=2.*K3R/L4 

0HU=2.*DHU 

j DK.P=H4P/L4 

I OHQ=2.*OnO 

0NV=2.*DNV 

0NP=2.‘N3P/L4 

I 0NR=2.*0NR 

I DYDV=2.*0YDV 

0YDP=2.«Y3DP/L4 
0Y0R=2.>DY0R 
0ZDy:2.*0Z0W 
020P=Z4DP/L4 
0200=2>*D?00 
0K0V=2.*K30V/L4 
0KDPs2.*(KI0P«K3DP>/L5 
0K0Rs2.*K30R/L5 
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0HDUs2.*0M0W 

Dn0Pxn40P/LS 

OHoai2.*onoa 

0N0VX2.*0N0V 

(lh0Ps2.«K30P/L» 

0»i0kz2.*DK0R 


02P»02*«02V«020P«0/0P,a20W»0«P»0k«»0PVtDPDPtDMDR.0P0W  *PC  ODD  FUNCTIONS 


RCTURN 

END 
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38X5  PACE  16  BEST  QUAItH  mcnOAUii 

ISm  OOPY  FURltU^UED  XODI^C  


SUBROUTINE  RUNGS  ( X«H «N« Y « VPR IREtlNOC X) 

0  IRENS  ION  T(  1S)«YPRIHE(13)«Z(13>  «W1(  13)  tUZdS)  «V3(1S)  «k4(  IS) 
CRUNCS  - RUNGE-KUTTA  SOLUTION  OF  SET  OF  FIRST  ORDER  O.D.E.  FORTRAN  99 
DIMENSIONS  MUST  BE  SET  FOR  EACH  PROGRAM 
X INOEPENOENT  VARIABLE 

H increment  delta  x«  may  be  changed  in  value. 

N NUMBER  OF  EGUATIONS 

Y DEPENDENT  VARIABLE  BLOCK  ONE-  DIMENSIONAL  APRAY 

YPRIME  DERIVATIVE  BLOCK  0*.'E  DIMENSIONAL  APRAY 
THE  PkOGRAMMER  MUST  SUPPLY  I NITl  AL -VALUES  OF  Yd)  TO  Y<N) 

INDEX  IS  A VARIABLE  WHICH  SHOULD  BF  SET  TO  ZERO  BEFORE  EACH 
INITIAL  ENTRY  TO  THE  SUbRCUTINEt  I.L>«  TO  SOLVE  A DIFFERENT 
SET  OF  EQUATIONS  OR  TO  START  WITH  NEW  INITIAL  CONDITIONS. 

THE  PROGRAMMER  MUST  .RITE  A SUBROUTINE  CALLED  DERIVE  WHICH  COM- 
PUTES THE  DERIVATIVES  AND  STORES  THEM 

THE  ARGUMENT  LIST  IS  SUBROUTINE  DERIVECX.N.Y.YPRIME) 

IF  (INDEX)  5«S«1 

1 DO  2 I=1«N 
WKI  )sH.YPRIME(l) 

2 2<I)=Y(I)*(U1(I)*.S) 

A=X«H/2. 

CALL  0ERIVE(A.N,Z«YPR1ME) 

DC  3 I=1*N 
U2(I)=H.YPRTME(I) 

3 Z<I>=Y(I>«.5*W2(I) 

A=X*H/2. 

CALL  OERlVE<AtN«Zt YPRIME) 

DO  A I=1«N 
W3(I)=H*YPRIME(I) 

A ZIDPYIDfMBd) 

A=X«H 

CALL  DERIVE  ( A«N«Z« YPR IME) 

00  7 I=1«N 
UA(I)=H*YPRIHE(I) 

7 Y(I)=Y(I)«<((2.*(W2(I)«W3(I)))«Wl(I)*WA(I))/6.) 

X=X*M 

CALL  DERIVE  ( X, N« Y « YPR IME) 

GO  TO  G 

5 CALL  DERIVE  (X.N.Y.YPR IME) 

IN0EX=1 

6 RETURN 
END 
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SUBROUTINE  BCSSCLC 10*X*V) 

OlHENSION  TllOOO) 

TU=1./12. 

TH=l*/3« 

ORslO 

M=3.*3.*X»«TU*9,*X*«TH*AMAX1<0R«X) 

IF<K00(n,2) .NE.O)  n=H*l 

MlsH-1 

H2=h“2 

T(H)=0 

T(H1>=1* 

2 = 2. /X 
J=H2*l 
HX=H2/2 
SNORH=0. 

DO  1 i=i«nx 
J=J-1 

Tt  J)=J*2»HJ*1  J-T(  J*2J 
J=J-I 

• T <ol=u*2»TlJ*l)-TCJ*2» 

1 SNORR=SNOPH*T« J> 
SN0KM=2.»Si'l0RM-T(l> 

V=T< IO*l)/SNORH 
RETURN 
ENO 
vv 
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SUBROUTINE  COMB ( A«Nt NO* R«M,NERR« 0) 

C SOLUTION  OF  SIHULT.CQ.  FORKING  KUTTA  CONO. 

DIMENSION  AID*  BID 
EQUIVALENCE  (I*FI)*  <K«FK) 

0=NERR=1 
10  00  BO  Isl«N 
AlJHAX  = All) 

UMAX  : I 

IFIN.EQ.DGO  TO  30 
DO  25  0:2«N 

IJ  = 1 * fJ>l)*N0 

IFI ABSIAIIJ) )-A6SIAIJHAX)>2S*2S«20 
20  AIJMAX  = AIIJ) 

UMAX  = IJ 
25  CONTINUE 

IF  lAIJMAX)  30*999*30 
30  00  35  J=1*N 

IJ  = I ♦ IJ-1)*ND 
35  AIIJ)  = AtIJ>/AIJHAX 
0=0*  AIJMAX 
DO  AO  J=1*M 
IJ  = I * IJ-D*N0 
AO  BIlJ)  = BIIJ)/AIJMAX 
DO  70  Krl«N 
IF  IK-I)  50*70*50 
50  KJMAX  = UMAX  * IK-I) 

ARAT  = -AIKJMAX) 

KJ  = K 
IJ  = 1 

00  60  J=1*N 

IF  lAlIJ))  55*58*55 

55  AIKJ)  : ARAT*AIIJ)  * AIKJ) 

56  KJ  = KJ  « NO 
60  IJ  = IJ  * NO 

AIKJMAX)  = 0*0 

KJ  = K 

IJ  = 1 

DO  69  J=1*M 

IF  IbllJ))  65*68*65 

65  BIKJ)  = ARAT*6IIJ)  * 6IKJ) 

66  KJ  = KJ  * NO 
69  IJ  = IJ  « NO 

70  CONTINUE 

KJ  = UMAX  - 1*1 
90  AIKJ)  : FI 
00  100  I=1*N 

K = I 

93  II  = K*ND  - NO  ♦ 1 
FK  = All!) 

IF  IK-I)  93*100*95 
95  U = 1 
IK  r K 

00  99  J=1*H 

AI2)  = 6IIJ) 

BIU)  : BIIK) 

BIIK)  s AI2) 

IJ  s IJ  * NO 
99  IK  : IK  * NO 
100  CONTINUE 
NEAR  s 0 
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999  RETURN 
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SUbROUTlNE  SIRF'SN(K>P«NB«Dlt02«T**) 

C 

C SUbKOUTINt  TO  lUTCGRATE  BY  SIHPSON  RULE  FOB  tVEfJ  NUKBEP  CF  INCREMENTS 
C OK  6Y  TRAPEZOIDAL  RULE  IF  THE  NUMBER  CF  INCREMENTS  IS  ODD 

C 

C THIS  ROUTINE  WILL  INTEGRATE  FOR  ONE  OR  TWO  STEP  SIZES 

C IF  ONLY  ONE  STEP  SIZE«SET  NP:NB  AND  Dl=02. 

C 

C NP  - TOTAL  NUMBER  OF  POINTS  TO  bE  INTEGRATED 

C Nb  - INDEX  DIVIDING  T'JO  STEP  SIZES 

C Dl  - STEP  SIZE  FROM  INDEX  1 TO  NB 

C D2  - STEP  SIZE  FROM  INDEX  NB  TO  NP 

C Y - FUNCTION  TO  BE  INTEGRATED 

C A - INTEGRAL  OF  Y 

C 

OIHENSIC  (1>  «D(2) 

A=0. 

DdisDl 

0(2>=D2 

IF=1 

IL=NN=NB 
DO  5 J=lf2 
IF(NN.CO.l)  GO  TO  6 
IFlsIF*! 

IL1=IL-1 

IF(M00(NN«2) .NE.l)  GO  TO  2 
C SIMPSON  INTEGRATION 

IL2=ILl-2 
A2  = 0* 

AA=Y( ILI) 

C IF  THE  array  has  only  3 POINTSt  A=H* ( Y ( 1 ) • YI 2) ♦ Yt 5> ) /3 

1F(NN.£G.3)  GO  TO  7 
DO  1 I=IFl«IL2t2 
AA=AA*Y (I) 

1 A2=A2*Y(I*1) 

GO  TU  A 

c trapezoidal  integration 

2 A1=0.5»(Y(IF)*Y(IL)> 

C IF  The  array  HAS  ONLY  2 POINTSf  A=H» ( Y < 1 > ♦Y « 2 > » /2 . 

IFtNN.EQ.Z)  GO  TO  8 
DO  3 I=IF1*IL1 

3 Al=Ai+Y<I» 

8 A1=D(J>*A1 
A IF=NB 

IL  = NP 

NN=NP-NBBl 
b A:A*A1 

6 CONTINUE 
RETURN 
END 

vv 
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SUbROOTINt  SCALECNRNC,AtNP«*l»RN6,l»NGH) 

DIMENSION 

FIND  MAXIMUM  VALUE  OF  ARRAY  A1 
VMAXSAl (1) 

determine  axis  scale 
DO  1 I=2»NP 

YMAX  = AMAX1<YMAX»ABS(AHI))) 

DO  2 I=1»NRN6 

ISAVE=I  - 

IF  (YMAX.LE»A<in  GO  TO  3 
> CONTINUE 
IUP=YMAX 
HN6=IUP 
RNGMs-RNG 
RETURN 

3 rng=AIISAVE» 

RNGM=-RNG 

RETURN 

END 


f 


I 


% 
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SUEiAU'.iTlSL  PLO'^TCAlfA^t/^v/lAfA^,  «6  (MPtNCvNO 
REAL  fju^no; 

DIMENSION  AI  C 1 > ,A?( 1 > < A^'  1 > t AA( 1 j ,4  5( 1 ),A6I1 ) 

DIMENSION  I /cROtt)  a;SE»»  ) . i . 1 J2)  . ST  A R t b > .»>RNG«  B > t R AN6M  ( fc) 

DATA  iZrKC/21«<.6«ll  L t2  1 11/ 

DATA  RRNG  / *1  f «!•  «2«  fACl*/ 

data  STAR/1  H**  !h*»  U*  t ll.O  : -tlHG/ 

DATA  DLANK/IH  / 

DATA  DASH  /IH-/ 

DATA  EYE  /IHI/ 

DATA  PLUS  /1H«/ 

DATA  TEE/IHT/ 

DATA  NUM/lH0«lHl«lH2<lH3«lHA«lh5«lH6«lH7*lHdflH9/ 

SF(Q1=1Z«D*SCL 

C 

C INlTIAlIZE 

C '' 

NG-6 
N PNGs 8 
NCT=131 
NX=10 
KX  = 10 
C 

C SEALING  FDR  AXIS 

C 

CALL  SCALE (NRNG«RRNb*NP«A 1 tRANGECl ) «RANGH  (11) 

CALL  SCALE(NRNG«RRNG«NP«A2«PANGC (2) «RANGM (2) > 

CAlL  SCALE*  NRNb«RRNGtNP,A3 « range (3) (RANCH 1 3) > 
call  scale  (NRN6«RRNG«NP«AA,P.ANCE  (4)«RANGMf«)) 

CALL  SCALE(NRNG«RRN&«NP«A5tRANGC(S) (RANCH  tS) ) 

CALL  SCA:  E(NRNG(RRNG(NP(AG(RAN6EIG1(RAMGH(6)) 

C 

C PRINT  Y-AXIS 

C 

WRITE *6(200)  RANGM*1>(PANGL*1)(RANGM*2)(RA*.GE*2)(RANGK*3)(PAN&E*3) 

200  FORMAT liHI(F&.l(12X(7HHEAVE  = *(13x (FA, 1 ( A X ( F5 .1 ,1 1 X , 7hF I TCH  = « ( 
•1AX(FA.1(AX(F5.1(10X(11HWAVE  hGT.=.(llX(FA.l) 

•RITE *6 (201)  PANGH*A)(PANGEtA)(PANGM*S) ,RA'.GE*S) (R AUGM < 6 ) ,R ANGE < 6) 

201  FORMAT* 1X(F5.1( 13X(AHRCLL=C( 13X((FA. 1 (AX(FE.1(13X(5HYAL=0,1AX( 
•FA.1,AX(FS.1,10X(11HPRESS/100=0(11X(FA,1» 

C 

C PREPARE  PLOTTING  ARRAY 

C 

DO  1 1=1(NP 
DO  2 K=1(NCT 
2 A*K)=BLANK 
DO  3 Jsl(NG 
IZsIZEROCJl 
RNG=RANG£(J) 

SCLsNC/RNG 
IF*1.NE.1>  GO  TO  5 
IHI=1Z*NC 
IL0=1Z-NC 
KNT=I0 

DO  6 KsILCdHI 
A*K>sPLUS 

IF*KNT,NC,NX>  GO  TO  6 

A*K)sEYE 

KNT  = 0 

6 KNT=KNT«1 


1 
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5 GO  TO  (7«8«9«10tllfl4)*J 

7 A(IZI=PLUS 
1C=SF(A1I1)) 

60  TO  12 

8 A(IZ>=PLUS 
1C=SF(A2(1)) 

GO  TU  12 

9 A«IZ)=PLUS 
1C=GF(A3(1)) 

60  TO  12 

10  lC=SF(AAiIl) 

GO  TO  12 

11  1C=SF(A5C1)) 

GO  TO  12 

19  lC  = SF(A6tn) 

12  A(IC)=STAR(J) 

3 CONTINUt 

IFCKX.NC.MX)  GO  TO  13 
121=1ZER0(1> 

IZ2=lZCRCt2> 

I23=lZER0i3) 

A(1Z1)=A(1Z2)=A(1Z3)=0ASH 
IF(l.EO.l)  GO  TO  16 
Kl=<I-l)/10*.l 
K2=K1»1 

IF(Kl.GC.lO)  GO  TO  17 
A(IZ1*1 >=A( IZ2«1>=A(IZ3-1)=NUH(K2) 
GO  TO  16 
17  I2=MOD<K1,10) 

I1=(K1-12)/10*1 

I2=I2+1 

A(I21*1)=A( IZ2+1 >=A(IZ3-2)=NUP<1 1) 
A(121*2)=A(IZ2*2>=A(IZ3-1)=HUM(I2) 
16  KX=0 

13  KX=KX*1 

WRITE(6«202)  ( A (K > |K  = 1 ,NCT > 

202  FORKAT( 1X«131A1) 

1 CONTINUE 

DO  15  1=1»NCT 
15  A(n=bLANK 
IZ1=IZER0C1> 

I2<^  = 1ZER0(2) 

IZ3=1ZER0(3> 

A(IZ1)=A(1Z2)=A(IZ3>=TEE 
URITE(6«202>  ( A(K> «K=ltNCT) 

RETURN 

END 
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IHIS  PAGE  IS  BEST  QUALITY  PRACIlCABJil 
JROM  COPY  FURNISHEC  TO  LOG  - 


SUBROUTINE  PLOTXt<XP»YYPfNP) 

DIMENSION  X(91>tRANCE(<l>fAX(iO)  tXPCDt  YYP(1>«IP(500) 
DATA  BLANK  / IH  / 

DATA  EYE/IHI/ 

DATA  DASH  tlH-r 
DATA  PLUS  /1H«/ 

DATA  STAR/IH*/ 

data  range  /A.«5.«I0./ 

DATA  AX/1H0«1H1«IH2«1H3«1H4«1H5«1HG«IH7«1H8«1H9/ 

SCALE 

KXAXiSsO 

YMAX=ABS(YYP(1)) 

DO  11  Is2«NP 
NPSAV=1 

lF(XP(I>.LT.O.O.OR.ABS(YYP(I>).6T.eO.)  60  TO  18 
11  YMAX=AMAXl(YMAX*ABS(YYPtI))) 
le  NPsNPSAV 
YHlsBO. 

ORDER  X 

DO  1 Irl.NP 
KNT=1 

DO  2 J=1«NP 
IFCI.EO.J)  60  TO  2 
IF(XPII> .GT.XP< Jl)  KNT=KNT«1 
2 CONTINUE 
IPtI >=KNT 
1 CONTINUE 

INITIALIZE 

IZ  = 81 

IFCYYPtNPl.LT.O.O)  12=11 

KSAVEsO 

L1NE=1 

NC=80 

NLS91 

SCLsNC/YHl 
LY  = 10 
KYsLY 
LXslO 
KXsLX 

IF(YYP(NP).6E.0.0)  WRlTE(6f201> 

201  FOhhAK lMl,56Xt7hY  VS.  X/ 
«20X.3H*60»17X»3H*F0»17X,3H*A0*17Xt3H*20»19X.lHO/> 

IF( YYP(NP).LT.D.C)  URITE(6«2D2) 

202  F0RKAT<lH1.56Xt7MY  VS.  X/ 

*30X«1H0  «l&Xt3H-20tl7X«3H-AU«17Xt3H-6  0«17X«3H-80/> 

PREPARE  PLOTTING  ARRAY 

00  3 KsltNL 
A(K)sPLUS 

IFCKY.NE.LY)  60  TO  lA 

AIKIsEYE 

KY  = 0 

19  KY=KY*1 
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PASE  IS  BJST  QUAIIrr  PRACWjCA&l 

OOPy  FURNlSHEa)  lOiiDC 


3 CONTINUC 
DO  9 IsltNP 
«IIZ>sPLUS 
00  9 J=ltNP 
9 1F(1P(>)).E.0.I)  10=J 
ly=12-SCL«tYP<I0> 

IX  = 1*  <XP (10) 'SCL^S./IO. 1*2. 

if(ksave.cq.o)  go  to  5 

IFCIX.NC.KSAVE)  GO  TO  7 
5 IFt IX.GT.LIUE)  GO  TO  7 
A<I Y1:STAR 
KSAVEsLINC 
IFd.CG.NP)  GO  TO  7 
60  TO  9 

7 IF(KX.NC.LX)  GO  TO  10 
XXAa1G=KXAXI S*1 
IFtKXAXlS.FQ.l)  GO  TO  17 

IF (YYP(KP).LT.O.O)  GO  TO  15 
IZ0t.E  = I2*l 
1ZT1.0  = 12*2 
GO  TO  IG 

15  lZ0NE=lZ-2 
IZT.OrIZ-1 

16  A<IZCNE>=AX(KXAX1SI 
A(IZTbO>=AX(l) 

17  A(IZ»=OASb 
KX  = 0 

10  KX=KX*1 

IF<A<lZ>.NE.OASh.AND.A(IZ>.NE.STAR>  A( 1Z)=PLUS 
UR1TC(6«200>  (A(1J>«1J=1«NL> 

200  F0RHAT<20X.91A1I 

IFU.CO.NP.ANO.LINE.EO.IX)  CALL  EXIT 
00  8 K::l«NL 

8 AtKlsBLANK 
LIGEsLINE*! 

GO  TO  5 

9 CONTINUE 

return  C 

END 
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